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
42c7cd8d
Commit
42c7cd8d
authored
22 years ago
by
pmai
Browse files
Options
Downloads
Patches
Plain Diff
Patch by Gerd Moellmann to remove unused functionality from macros.lisp.
parent
47ac8337
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
pcl/macros.lisp
+1
-50
1 addition, 50 deletions
pcl/macros.lisp
with
1 addition
and
50 deletions
pcl/macros.lisp
+
1
−
50
View file @
42c7cd8d
...
@@ -26,7 +26,7 @@
...
@@ -26,7 +26,7 @@
;;;
;;;
(
ext:file-comment
(
ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/macros.lisp,v 1.
19
2002/08/26 16:
09:34
pmai Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/macros.lisp,v 1.
20
2002/08/26 16:
58:06
pmai Exp $"
)
;;;
;;;
;;; Macros global variable definitions, and other random support stuff used
;;; Macros global variable definitions, and other random support stuff used
;;; by the rest of the system.
;;; by the rest of the system.
...
@@ -72,32 +72,12 @@
...
@@ -72,32 +72,12 @@
(
defmacro
posq
(
item
list
)
`
(
position
,
item
,
list
:test
#'
eq
))
(
defmacro
posq
(
item
list
)
`
(
position
,
item
,
list
:test
#'
eq
))
(
defmacro
neq
(
x
y
)
`
(
not
(
eq
,
x
,
y
)))
(
defmacro
neq
(
x
y
)
`
(
not
(
eq
,
x
,
y
)))
(
defun
make-caxr
(
n
form
)
(
if
(
<
n
4
)
`
(
,
(
nth
n
'
(
car
cadr
caddr
cadddr
))
,
form
)
(
make-caxr
(
-
n
4
)
`
(
cddddr
,
form
))))
(
defun
make-cdxr
(
n
form
)
(
cond
((
zerop
n
)
form
)
((
<
n
5
)
`
(
,
(
nth
n
'
(
identity
cdr
cddr
cdddr
cddddr
))
,
form
))
(
t
(
make-cdxr
(
-
n
4
)
`
(
cddddr
,
form
)))))
)
)
(
defun
true
(
&rest
ignore
)
(
declare
(
ignore
ignore
))
t
)
(
defun
true
(
&rest
ignore
)
(
declare
(
ignore
ignore
))
t
)
(
defun
false
(
&rest
ignore
)
(
declare
(
ignore
ignore
))
nil
)
(
defun
false
(
&rest
ignore
)
(
declare
(
ignore
ignore
))
nil
)
(
defun
zero
(
&rest
ignore
)
(
declare
(
ignore
ignore
))
0
)
(
defun
zero
(
&rest
ignore
)
(
declare
(
ignore
ignore
))
0
)
(
defun
make-plist
(
keys
vals
)
(
if
(
null
vals
)
()
(
list*
(
car
keys
)
(
car
vals
)
(
make-plist
(
cdr
keys
)
(
cdr
vals
)))))
(
defun
remtail
(
list
tail
)
(
if
(
eq
list
tail
)
()
(
cons
(
car
list
)
(
remtail
(
cdr
list
)
tail
))))
(
defun
get-declaration
(
name
declarations
&optional
default
)
(
defun
get-declaration
(
name
declarations
&optional
default
)
(
dolist
(
d
declarations
default
)
(
dolist
(
d
declarations
default
)
(
dolist
(
form
(
cdr
d
))
(
dolist
(
form
(
cdr
d
))
...
@@ -110,32 +90,6 @@
...
@@ -110,32 +90,6 @@
(
defun
make-keyword
(
symbol
)
(
defun
make-keyword
(
symbol
)
(
intern
(
symbol-name
symbol
)
*keyword-package*
))
(
intern
(
symbol-name
symbol
)
*keyword-package*
))
(
eval-when
(
compile
load
eval
)
(
defun
string-append
(
&rest
strings
)
(
setq
strings
(
copy-list
strings
))
;The explorer can't even
;rplaca an &rest arg?
(
do
((
string-loc
strings
(
cdr
string-loc
)))
((
null
string-loc
)
(
apply
#'
concatenate
'string
strings
))
(
rplaca
string-loc
(
string
(
car
string-loc
)))))
)
(
defun
symbol-append
(
sym1
sym2
&optional
(
package
*package*
))
(
intern
(
string-append
sym1
sym2
)
package
))
(
defmacro
check-member
(
place
list
&key
(
test
#'
eql
)
(
pretty-name
place
))
(
ext:once-only
((
place
place
)
(
list
list
))
`
(
or
(
member
,
place
,
list
:test
,
test
)
(
error
"The value of ~A, ~S is not one of ~S."
',pretty-name
,
place
,
list
))))
(
defmacro
alist-entry
(
alist
key
make-entry-fn
)
(
ext:once-only
((
alist
alist
)
(
key
key
))
`
(
or
(
assq
,
key
,
alist
)
(
progn
(
setf
,
alist
(
cons
(
,
make-entry-fn
,
key
)
,
alist
))
(
car
,
alist
)))))
(
defmacro
doplist
((
key
val
)
plist
&body
body
&environment
env
)
(
defmacro
doplist
((
key
val
)
plist
&body
body
&environment
env
)
(
multiple-value-bind
(
bod
decls
doc
)
(
multiple-value-bind
(
bod
decls
doc
)
(
system:parse-body
body
env
)
(
system:parse-body
body
env
)
...
@@ -149,9 +103,6 @@
...
@@ -149,9 +103,6 @@
(
setq
,
val
(
pop
.
plist-tail.
))
(
setq
,
val
(
pop
.
plist-tail.
))
(
progn
,@
bod
)))))
(
progn
,@
bod
)))))
(
defmacro
if*
(
condition
true
&rest
false
)
`
(
if
,
condition
,
true
(
progn
,@
false
)))
(
defmacro
dolist-carefully
((
var
list
improper-list-handler
)
&body
body
)
(
defmacro
dolist-carefully
((
var
list
improper-list-handler
)
&body
body
)
`
(
let
((
,
var
nil
)
`
(
let
((
,
var
nil
)
(
.
dolist-carefully.
,
list
))
(
.
dolist-carefully.
,
list
))
...
...
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