Changeset 449
- Timestamp:
- Jan 31, 2004, 7:05:00 PM (21 years ago)
- File:
-
- 1 edited
-
trunk/ccl/lib/number-case-macro.lisp (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ccl/lib/number-case-macro.lisp
r78 r449 112 112 ,@(if (not t-case) 113 113 `((t (setq ,var (%kernel-restart $xwrongtype ,var ',(nd-type-compose selectors-so-far))) 114 ; this causes compiler to put event-check at top - phooey115 114 (go ,tag))))))))))) 116 115
Note:
See TracChangeset
for help on using the changeset viewer.
