diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp index 8094fc1dbf453e39bb68162a709b99a5f0a73dec..6dbc02bbf60965493e31e6cb112b939ef2f429fa 100644 --- a/compiler/ir1tran.lisp +++ b/compiler/ir1tran.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/ir1tran.lisp,v 1.51 1991/09/03 21:50:18 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.52 1991/10/01 19:11:00 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -25,7 +25,7 @@ (export '(ignorable truly-the maybe-inline *derive-function-types*)) (in-package "LISP") -(export '(symbol-macro-let)) +(export '(symbol-macrolet)) (in-package 'c) @@ -2420,8 +2420,8 @@ ;;;; Symbol macros: -(def-ir1-translator symbol-macro-let ((specs &body body) start cont) - "SYMBOL-MACRO-LET {(Name Expansion)}* Form* +(def-ir1-translator symbol-macrolet ((specs &body body) start cont) + "SYMBOL-MACROLET {(Name Expansion)}* Form* Define the Names as symbol macros with the given Expansions. Within the body, references to a Name will effectively be replaced with the Expansion." (collect ((res)) @@ -2433,7 +2433,7 @@ (unless (symbolp name) (compiler-error "Symbol macro name is not a symbol: ~S." name)) (when (assoc name (res)) - (compiler-warning "Repeated name in SYMBOL-MACRO-LET: ~S." name)) + (compiler-warning "Repeated name in SYMBOL-MACROLET: ~S." name)) (res `(,name . (MACRO . ,def))))) (let ((*lexical-environment* (make-lexenv :variables (res))))