Skip to content
GitLab
Explore
Sign in
Register
Primary navigation
Search or go to…
Project
cmucl
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Package Registry
Model registry
Operate
Environments
Terraform modules
Monitor
Incidents
Service Desk
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Carl Shapiro
cmucl
Commits
9d4a287e
Commit
9d4a287e
authored
31 years ago
by
ram
Browse files
Options
Downloads
Patches
Plain Diff
special-form-p -> special-operator-p. Nuked compiler-macroexpand[-1] because
they didn't make it into the standard.
parent
8260c5ba
No related branches found
No related tags found
No related merge requests found
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
code/eval.lisp
+8
-7
8 additions, 7 deletions
code/eval.lisp
with
8 additions
and
7 deletions
code/eval.lisp
+
8
−
7
View file @
9d4a287e
...
@@ -7,7 +7,7 @@
...
@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
;;;
(
ext:file-comment
(
ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/eval.lisp,v 1.2
1
199
2/12/17 09:08:00 wlott
Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/eval.lisp,v 1.2
2
199
3/06/23 19:31:14 ram
Exp $"
)
;;;
;;;
;;; **********************************************************************
;;; **********************************************************************
;;;
;;;
...
@@ -15,9 +15,8 @@
...
@@ -15,9 +15,8 @@
(
export
'
(
eval
constantp
quote
proclaim
(
export
'
(
eval
constantp
quote
proclaim
eval-when
progn
prog1
prog2
let
let*
eval-when
progn
prog1
prog2
let
let*
do
do*
dotimes
dolist
progv
and
or
cond
if
the
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
macroexpand-1
macroexpand
block
return-from
compiler-macroexpand
compiler-macroexpand-1
compiler-macro-function
compiler-macro-function
return
function
setq
psetq
apply
funcall
return
function
setq
psetq
apply
funcall
compiler-let
progv
flet
labels
macrolet
compiler-let
progv
flet
labels
macrolet
...
@@ -254,9 +253,8 @@
...
@@ -254,9 +253,8 @@
;;;; Syntactic environment access:
;;;; Syntactic environment access:
(
defun
special-form-p
(
symbol
)
(
defun
special-operator-p
(
symbol
)
"If the symbol globally names a special form, returns the definition in a
"If the symbol globally names a special form, returns T, otherwise NIL."
mysterious internal format (a FEXPR), else returns NIL."
(
declare
(
symbol
symbol
))
(
declare
(
symbol
symbol
))
(
eq
(
info
function
kind
symbol
)
:special-form
))
(
eq
(
info
function
kind
symbol
)
:special-form
))
...
@@ -379,6 +377,9 @@
...
@@ -379,6 +377,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
internally...
(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,
invoke the expander function using *macroexpand-hook* and return the
invoke the expander function using *macroexpand-hook* and return the
...
@@ -401,7 +402,7 @@
...
@@ -401,7 +402,7 @@
(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
)
(
defun
constantp
(
object
)
"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
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment