/[cmucl]/src/code/macros.lisp
ViewVC logotype

Diff of /src/code/macros.lisp

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

revision 1.97 by emarsden, Fri Aug 8 11:32:52 2003 UTC revision 1.98 by rtoy, Wed Apr 14 17:01:22 2004 UTC
# Line 1289  Line 1289 
1289        (cond ((atom case)        (cond ((atom case)
1290               (error "~S -- Bad clause in ~S." case name))               (error "~S -- Bad clause in ~S." case name))
1291              ((and (not allow-otherwise)              ((and (not allow-otherwise)
                   (null (cdr case-list))  
1292                    (memq (car case) '(t otherwise)))                    (memq (car case) '(t otherwise)))
1293               ;; The CLHS says OTHERWISE clause is an OTHERWISE clause               (cond ((null (cdr case-list))
1294               ;; only if it's the last case.  Otherwise, it's just a                      ;; The CLHS says OTHERWISE clause is an OTHERWISE clause
1295               ;; normal clause.                      ;; only if it's the last case.  Otherwise, it's just a
1296               (if errorp                      ;; normal clause.
1297                   (error "No default clause allowed in ~S: ~S" name case)                      (if errorp
1298                   (push `(t nil ,@(rest case)) clauses)))                          (error "No default clause allowed in ~S: ~S" name case)
1299                            (push `(t nil ,@(rest case)) clauses)))
1300                       ((and (eq name 'case))
1301                        (error "T and OTHERWISE may not be used as key designators for ~A" name))))
1302              ((and multi-p (listp (first case)))              ((and multi-p (listp (first case)))
1303               (setf keys (append (first case) keys))               (setf keys (append (first case) keys))
1304               (push `((or ,@(mapcar #'(lambda (key)               (push `((or ,@(mapcar #'(lambda (key)

Legend:
Removed from v.1.97  
changed lines
  Added in v.1.98

  ViewVC Help
Powered by ViewVC 1.1.5