/[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.101 by rtoy, Tue Jun 29 20:44:40 2004 UTC revision 1.102 by rtoy, Thu Oct 14 13:46:30 2004 UTC
# Line 1307  Line 1307 
1307                          (error "No default clause allowed in ~S: ~S" name case)                          (error "No default clause allowed in ~S: ~S" name case)
1308                          (push `(t nil ,@(rest case)) clauses)))                          (push `(t nil ,@(rest case)) clauses)))
1309                     ((and (eq name 'case))                     ((and (eq name 'case))
1310                      (error "T and OTHERWISE may not be used as key designators for ~A" name))))                      (error "T and OTHERWISE may not be used as key designators for ~A" name))
1311                       ((eq (first case) t)
1312                        ;; The key T is normal clause, because it's not
1313                        ;; the last clause.
1314                        (push (first case) keys)
1315                        (push `((,test ,keyform-value
1316                                ',(first case)) nil ,@(rest case)) clauses))))
1317              ((and multi-p (listp (first case)))              ((and multi-p (listp (first case)))
1318               (setf keys (append (first case) keys))               (setf keys (append (first case) keys))
1319               (push `((or ,@(mapcar #'(lambda (key)               (push `((or ,@(mapcar #'(lambda (key)

Legend:
Removed from v.1.101  
changed lines
  Added in v.1.102

  ViewVC Help
Powered by ViewVC 1.1.5