home *** CD-ROM | disk | FTP | other *** search
/ Internet Publisher's Toolbox 1.0 / Image.iso / toolbox / hotmetal / scm.z / SGML.ERR < prev    next >
Text File  |  1995-04-28  |  424b  |  18 lines
  1. ; @(#)sgml.err    1.2 92/05/19
  2. ; Copyright (c) 1991, 1992 SoftQuad Inc.
  3. ((SGMLPRIMERR (lambda args
  4.         (let* ((errsym (car args))
  5.                (errprim (caddr args))
  6.                (errobjs (cdddr args))
  7.                (sp (open-output-string)))
  8.           (display "Error -- " sp)
  9.           (display errprim sp)
  10.           (display ":\n" sp)
  11.  
  12.           (for-each (lambda (x)
  13.                   (display x sp)
  14.                   (newline sp))
  15.                 errobjs)
  16.  
  17.           (get-output-string sp)))))
  18.