diff options
Diffstat (limited to 'src/interp/vmlisp.lisp.pamphlet')
| -rw-r--r-- | src/interp/vmlisp.lisp.pamphlet | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/src/interp/vmlisp.lisp.pamphlet b/src/interp/vmlisp.lisp.pamphlet index 9653d749..837ef55f 100644 --- a/src/interp/vmlisp.lisp.pamphlet +++ b/src/interp/vmlisp.lisp.pamphlet @@ -759,13 +759,11 @@ and works properly. ;; defuns -#-(or :CCL (and :Lucid (not :rios))) -(defun define-function (f v) - (setf (symbol-function f) v)) -#+:CCL -(defun define-function (f v) - (setf (symbol-function f) v) - (setf (get f 's:newname) v)) +(eval-when + #+:common-lisp (:compile-toplevel :load-toplevel :execute) + #-:common-lisp (compile load eval) + (defun define-function (f v) + (setf (symbol-function f) v))) (define-function 'tempus-fugit #'get-internal-run-time) @@ -1030,10 +1028,13 @@ and works properly. nil (cons (cons (first x) (second x)) (plist2alist (cddr x))))) -#-:CCL -(defun put (sym ind val) (setf (get sym ind) val)) - -(define-function 'MAKEPROP #'put) +(eval-when + #+:common-lisp (:compile-toplevel :load-toplevel :execute) + #-:common-lisp (compile load eval) + (progn + (defun put (sym ind val) (setf (get sym ind) val)) + + (define-function 'MAKEPROP #'put))) ; 12.0 Operations on Numbers |