From 5c4ff220c3ba9a37ffaf875e218c36ae0a436631 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Thu, 19 May 2011 17:02:42 +0000 Subject: * interp/i-analy.boot (bottomUpForm0): Tidy. * interp/i-eval.boot (evalForm): Likewise. * interp/buildom.boot (formalRecordField): New. (eltRecordFun): Use it. (seteltRecordFun): New. * interp/g-opt.boot (optSETRECORDELT): Remove. (optRECORDCOPY): Likewise. * interp/vmlisp.lisp (MAKE-VEC): Likewise. --- src/interp/vmlisp.lisp | 2 -- 1 file changed, 2 deletions(-) (limited to 'src/interp/vmlisp.lisp') diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp index 4159b32d..0f3d1f2f 100644 --- a/src/interp/vmlisp.lisp +++ b/src/interp/vmlisp.lisp @@ -782,8 +782,6 @@ ; 16.1 Creation -(defun MAKE-VEC (n) (make-array n)) - (defun GETREFV (n) (make-array n :initial-element nil)) -- cgit v1.2.3