Skip to content
Snippets Groups Projects
Commit 976290ac authored by gerd's avatar gerd
Browse files

* compiler/ir1tran.lisp (extract-flet-variables): Use

	valid-function-name-p for determining the block name.
parent 50eb6bb6
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.137 2003/02/05 19:32:20 emarsden Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.138 2003/02/05 23:37:06 gerd Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -2844,14 +2844,14 @@ ...@@ -2844,14 +2844,14 @@
(when (or (atom def) (< (length def) 2)) (when (or (atom def) (< (length def) 2))
(compiler-error "Malformed ~S definition spec: ~S." context def)) (compiler-error "Malformed ~S definition spec: ~S." context def))
(let ((name (check-function-name (first def)))) (let ((name (check-function-name (first def)))
(block-name (nth-value 1 (valid-function-name-p (first def)))))
(names name) (names name)
(multiple-value-bind (multiple-value-bind (body decls)
(body decls)
(system:parse-body (cddr def) *lexical-environment* t) (system:parse-body (cddr def) *lexical-environment* t)
(defs `(lambda ,(second def) (defs `(lambda ,(second def)
,@decls ,@decls
(block ,(if (consp name) (second name) name) (block ,block-name
. ,body)))))) . ,body))))))
(values (names) (defs)))) (values (names) (defs))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment