Parent Directory | Revision Log | 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))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |