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