From 80fe9390731e562cc10854e8b907a0bd49f16c7c Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sat, 13 Feb 1993 15:49:34 +0000 Subject: [PATCH] new structure hax. --- compiler/main.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/compiler/main.lisp b/compiler/main.lisp index 17e42f076..295782c42 100644 --- a/compiler/main.lisp +++ b/compiler/main.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.78 1992/11/25 10:32:29 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.78.1.1 1993/02/13 15:49:34 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1024,6 +1024,9 @@ (process-cold-load-form form path t)) ((error cerror break signal) (process-cold-load-form form path nil)) + (kernel:%compiler-defstruct + (convert-and-maybe-compile form path) + (compile-top-level-lambdas () t)) ((eval-when) (unless (>= (length form) 2) (compiler-error "EVAL-WHEN form is too short: ~S." form)) -- GitLab