From 2834ddbb6abbf9145b4c034e07e4b1e52aa3df2e Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 17 Aug 2007 22:19:35 +0000
Subject: 	* vmlisp.lisp.pamphlet (define-function): Define in all
 situations. 	* parsing.lisp.pamphlet: Import "bootfuns". 	*
 util.lisp.pamphlet: Import "vmlisp" and "parsing". 	*
 bootfuns.lisp.pamphlet: Add GCL-specific bug workaround. 	*
 Makefile.pamphlet (${DEPSYS}): Load "parsing" before "util". 
 (util.$(FASLEXT)): Has parsing.$(FASLEXT) as prerequisite. 
 (parsing.$(FASLEXT)): New rule. 	* Makefile.in: Regenerate.

---
 src/interp/vmlisp.lisp.pamphlet | 23 ++++++++++++-----------
 1 file changed, 12 insertions(+), 11 deletions(-)

(limited to 'src/interp/vmlisp.lisp.pamphlet')

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
 
-- 
cgit v1.2.3