From 9355c270cf60fb112d242816a6bb1928e1462c56 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 27 Nov 1990 15:43:14 +0000 Subject: [PATCH] Changed MAKE-TOP-LEVEL-FORM to only insert an EVAL-WHEN when necessary, so that we allow lazy IR1 conversion of methods in interpreted code. --- pcl/defclass.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/pcl/defclass.lisp b/pcl/defclass.lisp index a920059da..299c4bc80 100644 --- a/pcl/defclass.lisp +++ b/pcl/defclass.lisp @@ -60,7 +60,11 @@ (or lucid::*compiler-message-string* ,(definition-name)))) (eval-when ,times ,form)) - #-(or Genera LCL3.0) + #+cmu + (if (member 'compile times) + `(eval-when ,times ,form) + form) + #-(or Genera LCL3.0 cmu) (make-progn `',name `(eval-when ,times ,form)))) (defun make-progn (&rest forms) -- GitLab