From 0a55f0301228405a3b8765d4bd22e27e3217227c Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Fri, 19 Jul 2013 15:18:54 +0200 Subject: Simplify. --- sb-eval2.lisp | 3 +-- 1 file changed, 1 insertion(+), 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) -- cgit v1.2.3