From 4bd4b5a32a632e726ff37c7ef0a253a21c2bbbe2 Mon Sep 17 00:00:00 2001 From: jjgarcia Date: Mon, 21 Feb 2005 11:18:51 +0000 Subject: [PATCH] FLET/LABEL would not compile as toplevel forms because the value of *CURRENT-FUNCTION* is NIL for toplevel forms --- src/cmp/cmpflet.lsp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/cmp/cmpflet.lsp b/src/cmp/cmpflet.lsp index 1d6798d9a..acaf9cda5 100644 --- a/src/cmp/cmpflet.lsp +++ b/src/cmp/cmpflet.lsp @@ -226,9 +226,10 @@ (return nil)) ((and (fun-p fun) (same-fname-p (fun-name fun) fname)) (incf (fun-ref fun)) - (if build-object - (setf (fun-ref-ccb fun) t) - (push fun (fun-referred-funs *current-function*))) + (cond (build-object + (setf (fun-ref-ccb fun) t)) + (*current-function* + (push fun (fun-referred-funs *current-function*)))) ;; we introduce a variable to hold the funob (let ((var (fun-var fun))) (cond (ccb (when build-object