diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-15 14:41:07 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-15 14:41:07 +0200 |
| commit | 8468d5fbf5fcf7c0193ef26b1f8c091fefd5d9db (patch) | |
| tree | 47b95968586c2e364732064b460b88eac68d9299 | |
| parent | 743d74b2454c5c08db5f3b5a53593a6bdcc247d5 (diff) | |
Remove obsolete code.
| -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) |