Skip to content
Snippets Groups Projects
Commit 4fc04595 authored by ram's avatar ram
Browse files

Nuke compile-macroexpand, special-form-p -> special-operator-p

parent 357b4684
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.54 1993/02/26 08:38:24 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.55 1993/06/23 19:37:55 ram Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -113,7 +113,7 @@
(defknown boundp (symbol) boolean (flushable))
(defknown fboundp ((or symbol cons)) boolean (flushable explicit-check))
(defknown special-form-p (symbol) t (movable foldable flushable)) ; They never change...
(defknown special-operator-p (symbol) t (movable foldable flushable)) ; They never change...
(defknown set (symbol t) t (unsafe)
:derive-type #'result-type-last-arg)
(defknown fdefinition ((or symbol cons)) function (unsafe explicit-check))
......@@ -153,9 +153,6 @@
(defknown compiler-macro-function (t &optional lexical-environment)
(or function null)
(flushable))
(defknown (compiler-macroexpand compiler-macroexpand-1)
(t &optional lexical-environment)
(values form &optional boolean))
;;;; In the "Declarations" chapter:
......
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