Skip to content
Snippets Groups Projects
Commit e4145970 authored by pmai's avatar pmai
Browse files

Reactivate the definitions of COMPILER-MACROEXPAND-1 and

COMPILER-MACROEXPAND, and export them from the EXTENSIONS package,
since they are useful debugging aids for compiler-macro writers, even
if they could write them on their own, and ANSI CL dropped them.
parent d30a024e
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/code/eval.lisp,v 1.32 2001/03/01 21:45:33 pw Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/eval.lisp,v 1.33 2001/12/13 01:04:20 pmai Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -50,7 +50,8 @@ ...@@ -50,7 +50,8 @@
(export '(parse-body find-if-in-closure)) (export '(parse-body find-if-in-closure))
(in-package "EXTENSIONS") (in-package "EXTENSIONS")
(export '(*top-level-auto-declare*)) (export '(*top-level-auto-declare*
compiler-macroexpand-1 compiler-macroexpand))
(in-package "KERNEL") (in-package "KERNEL")
(export '(invoke-macroexpand-hook)) (export '(invoke-macroexpand-hook))
...@@ -439,8 +440,9 @@ ...@@ -439,8 +440,9 @@
(setf (info function compiler-macro-function name) function) (setf (info function compiler-macro-function name) function)
function) function)
#|These seem to have been dropped from the spec, and we don't use them ;;; While these have been dropped from the spec, and we don't use them
internally... ;;; internally, we implement them anyway, for the benefit of a user
;;; trying to debug his compiler macros.
(defun compiler-macroexpand-1 (form &optional env) (defun compiler-macroexpand-1 (form &optional env)
"If FORM is a function call for which a compiler-macro has been defined, "If FORM is a function call for which a compiler-macro has been defined,
...@@ -464,7 +466,6 @@ internally... ...@@ -464,7 +466,6 @@ internally...
(frob new-form t) (frob new-form t)
(values new-form expanded))))) (values new-form expanded)))))
(frob form env))) (frob form env)))
|#
(defun constantp (object &optional environment) (defun constantp (object &optional environment)
"True of any Lisp object that has a constant value: types that eval to "True of any Lisp object that has a constant value: types that eval to
......
...@@ -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/code/exports.lisp,v 1.186 2001/12/06 19:15:40 pmai Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.187 2001/12/13 01:04:21 pmai Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -910,6 +910,7 @@ ...@@ -910,6 +910,7 @@
"*PROMPT*" "*REQUIRE-VERBOSE*" "*PROMPT*" "*REQUIRE-VERBOSE*"
"*SETF-FDEFINITION-HOOK*" "*SETF-FDEFINITION-HOOK*"
"*TOP-LEVEL-AUTO-DECLARE*" "*TOP-LEVEL-AUTO-DECLARE*"
"COMPILER-MACROEXPAND-1" "COMPILER-MACROEXPAND"
"*UNDEFINED-WARNING-LIMIT*" "ACCEPT-TCP-CONNECTION" "*UNDEFINED-WARNING-LIMIT*" "ACCEPT-TCP-CONNECTION"
"ADD-OOB-HANDLER" "AMBIGUOUS-FILES" "ARGUMENT-LIST" "ASSQ" "ADD-OOB-HANDLER" "AMBIGUOUS-FILES" "ARGUMENT-LIST" "ASSQ"
"BASIC-DEFINITION" "BIGNUMP" "BITP" "CACHE-HASH-EQ" "BASIC-DEFINITION" "BIGNUMP" "BITP" "CACHE-HASH-EQ"
......
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