From 9d4a287e7446f261ad479391135a3f497c4b658e Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 23 Jun 1993 19:31:14 +0000
Subject: [PATCH] special-form-p -> special-operator-p.  Nuked
 compiler-macroexpand[-1] because they didn't make it into the standard.

---
 code/eval.lisp | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/code/eval.lisp b/code/eval.lisp
index 18838b148..609b89769 100644
--- a/code/eval.lisp
+++ b/code/eval.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/eval.lisp,v 1.21 1992/12/17 09:08:00 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/eval.lisp,v 1.22 1993/06/23 19:31:14 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,9 +15,8 @@
 (export '(eval constantp quote proclaim
 	  eval-when progn prog1 prog2 let let*
 	  do do* dotimes dolist progv and or cond if the
-	  macro-function special-form-p *macroexpand-hook*
+	  macro-function special-operator-p *macroexpand-hook*
 	  macroexpand-1 macroexpand block return-from
-	  compiler-macroexpand compiler-macroexpand-1
 	  compiler-macro-function
 	  return function setq psetq apply funcall
 	  compiler-let progv flet labels macrolet
@@ -254,9 +253,8 @@
 
 ;;;; Syntactic environment access:
 
-(defun special-form-p (symbol)
-  "If the symbol globally names a special form, returns the definition in a
-  mysterious internal format (a FEXPR), else returns NIL."
+(defun special-operator-p (symbol)
+  "If the symbol globally names a special form, returns T, otherwise NIL."
   (declare (symbol symbol))
   (eq (info function kind symbol) :special-form))
 
@@ -379,6 +377,9 @@
   (setf (info function compiler-macro-function name) function)
   function)
 
+#|These seem to have been dropped from the spec, and we don't use them
+internally...
+
 (defun compiler-macroexpand-1 (form &optional env)
   "If FORM is a function call for which a compiler-macro has been defined,
    invoke the expander function using *macroexpand-hook* and return the
@@ -401,7 +402,7 @@
 		   (frob new-form t)
 		   (values new-form expanded)))))
     (frob form env)))
-
+|#
 
 (defun constantp (object)
   "True of any Lisp object that has a constant value: types that eval to
-- 
GitLab