diff options
| -rw-r--r-- | sb-eval2.lisp | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/sb-eval2.lisp b/sb-eval2.lisp index 7fb09b2..6687ac3 100644 --- a/sb-eval2.lisp +++ b/sb-eval2.lisp @@ -5,8 +5,6 @@ (in-package "SB-EVAL2") -#+(or) -(setq SB-EXT:*EVALUATOR-MODE* :interpret) (defstruct (environment (:constructor make-environment (parent &optional (size 0) @@ -25,10 +23,6 @@ (defun lexical-with-nesting (lexical nesting) (make-lexical (lexical-name lexical) (lexical-offset lexical) nesting)) -(defstruct (box (:constructor make-box (value))) - value) -(defun unbox (box) (box-value box)) - (defstruct (context (:constructor make-context (&optional parent))) parent (levelp nil :type boolean) |