From b1fdfdce7d178e74943c7e8c0cacf16c15278a88 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 1 Oct 1991 19:11:00 +0000 Subject: [PATCH] Changed SYMBOL-MACRO-LET to SYMBOL-MACROLET. --- compiler/ir1tran.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp index 8094fc1db..6dbc02bbf 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)))) -- GitLab