diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-19 15:18:54 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-19 15:18:54 +0200 |
| commit | 0a55f0301228405a3b8765d4bd22e27e3217227c (patch) | |
| tree | ec3977481f44ecb60ba9ac8ac719e63fc9b76010 | |
| parent | dcf0b8c0de428bef460212899de6bf0ea4f7f5fe (diff) | |
Simplify.
| -rw-r--r-- | sb-eval2.lisp | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/sb-eval2.lisp b/sb-eval2.lisp index 403af17..5032662 100644 --- a/sb-eval2.lisp +++ b/sb-eval2.lisp @@ -58,8 +58,7 @@ (defun make-env-lexical (name offset &optional (nesting -1)) (make-instance 'env-lexical :name name :offset offset :nesting nesting)) -(defgeneric lexical-with-nesting (lexical nesting)) -(defmethod lexical-with-nesting ((lexical env-lexical) nesting) +(defun lexical-with-nesting (lexical nesting) (make-env-lexical (lexical-name lexical) (lexical-offset lexical) nesting)) (defun maybe-references-p/env (form vars env) |