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

Diff of /gcl/clcs/clcs_conditions.lisp

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

revision 1.1 by camm, Wed Feb 26 22:21:34 2003 UTC revision 1.1.4.1 by camm, Wed Jul 16 02:02:46 2003 UTC
# Line 149  Line 149 
149  )  )
150    
151  (DEFMACRO DEFINE-CONDITION (NAME PARENT-LIST SLOT-SPECS &REST OPTIONS)  (DEFMACRO DEFINE-CONDITION (NAME PARENT-LIST SLOT-SPECS &REST OPTIONS)
152      (unless (or parent-list (eq name 'condition))
153              (setq parent-list (list 'condition)))
154    (let* ((REPORT-FUNCTION nil)    (let* ((REPORT-FUNCTION nil)
155           (DOCUMENTATION nil))           (DOCUMENTATION nil))
156      (DO ((O OPTIONS (CDR O)))      (DO ((O OPTIONS (CDR O)))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.1.4.1

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