/[gcl]/gcl/clcs/gcl_clcs_condition_definitions.lisp
ViewVC logotype

Diff of /gcl/clcs/gcl_clcs_condition_definitions.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by camm, Wed Sep 7 02:36:17 2005 UTC revision 1.5 by camm, Wed Oct 12 03:06:30 2005 UTC
# Line 316  Line 316 
316    #-(or clos pcl)(:conc-name %%internal-simple-parse-error-)    #-(or clos pcl)(:conc-name %%internal-simple-parse-error-)
317    #-(or clos pcl)(:report internal-simple-error-printer))    #-(or clos pcl)(:report internal-simple-error-printer))
318    
319    (define-condition internal-simple-reader-error
320        (#+(or clos pcl) internal-simple-error reader-error)
321      #-(or clos pcl)
322      ((function-name nil) format-string (format-arguments '()))
323      #+(or clos pcl)
324      ()
325      #-(or clos pcl)(:conc-name %%internal-simple-reader-error-)
326      #-(or clos pcl)(:report internal-simple-error-printer))
327    
328  (define-condition internal-simple-control-error  (define-condition internal-simple-control-error
329      (#+(or clos pcl) internal-simple-error control-error)      (#+(or clos pcl) internal-simple-error control-error)
330    #-(or clos pcl)    #-(or clos pcl)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26