diff options
Diffstat (limited to 'src/interp/def.lisp')
| -rw-r--r-- | src/interp/def.lisp | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/src/interp/def.lisp b/src/interp/def.lisp index f9613d94..d6c7ed82 100644 --- a/src/interp/def.lisp +++ b/src/interp/def.lisp @@ -39,6 +39,26 @@ (in-package "BOOT") +(REPEAT (IN X '( + (|:| |DEF-:|) + (|::| |DEF-::|) + (ELT DEF-ELT) + (SETELT DEF-SETELT) + (%LET DEF-LET) + (COLLECT DEF-COLLECT) + (LESSP DEF-LESSP) + (|<| DEF-LESSP) + (REPEAT DEF-REPEAT) +;;(|TRACE,LET| DEF-TRACE-LET) + (CATEGORY DEF-CATEGORY) + (EQUAL DEF-EQUAL) + (|is| DEF-IS) + (SEQ DEF-SEQ) + (|isnt| DEF-ISNT) + (|where| DEF-WHERE) +)) (PROGN (MAKEPROP (CAR X) '|DEF-TRAN| (CADR X)) (CADR X))) + + ;;; Common Block (defparameter deftran nil) |