← Back to branch summary

~ubuntu-branches/ubuntu/quantal/gclcvs/quantal

« back to all changes in this revision

Viewing changes to ansi-tests/cl-symbol-names.lsp

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2004-06-24 15:13:46 UTC
  • Revision ID: james.westby@ubuntu.com-20040624151346-xh0xaaktyyp7aorc
Tags: 2.7.0-26
C_GC_OFFSET is 2 on m68k-linux

Show diffs side-by-side

added added

removed removed

Lines of Context:
ansi-tests/cl-symbol-names.lsp
 
1
;-*- Mode:     Lisp -*-
 
2
;;;; Author:   Paul Dietz
 
3
;;;; Created:  Sun Oct  6 21:49:33 2002
 
4
;;;; Contains: Names of standard CL symbols
 
5
 
 
6
(in-package :cl-test)
 
7
 
 
8
;;;
 
9
;;; These are the names of the 978 symbols that can and must be external to
 
10
;;; the COMMON-LISP package.
 
11
;;;
 
12
 
 
13
(defparameter *cl-symbol-names*
 
14
(mapcar #'string
 
15
'(
 
16
#:&allow-other-keys
 
17
#:&aux
 
18
#:&body
 
19
#:&environment
 
20
#:&key
 
21
#:&optional
 
22
#:&rest
 
23
#:&whole
 
24
#:*
 
25
#:**
 
26
#:***
 
27
#:*break-on-signals*
 
28
#:*compile-file-pathname*
 
29
#:*compile-file-truename*
 
30
#:*compile-print*
 
31
#:*compile-verbose*
 
32
#:*debug-io*
 
33
#:*debugger-hook*
 
34
#:*default-pathname-defaults*
 
35
#:*error-output*
 
36
#:*features*
 
37
#:*gensym-counter*
 
38
#:*load-pathname*
 
39
#:*load-print*
 
40
#:*load-truename*
 
41
#:*load-verbose*
 
42
#:*macroexpand-hook*
 
43
#:*modules*
 
44
#:*package*
 
45
#:*print-array*
 
46
#:*print-base*
 
47
#:*print-case*
 
48
#:*print-circle*
 
49
#:*print-escape*
 
50
#:*print-gensym*
 
51
#:*print-length*
 
52
#:*print-level*
 
53
#:*print-lines*
 
54
#:*print-miser-width*
 
55
#:*print-pprint-dispatch*
 
56
#:*print-pretty*
 
57
#:*print-radix*
 
58
#:*print-readably*
 
59
#:*print-right-margin*
 
60
#:*query-io*
 
61
#:*random-state*
 
62
#:*read-base*
 
63
#:*read-default-float-format*
 
64
#:*read-eval*
 
65
#:*read-suppress*
 
66
#:*readtable*
 
67
#:*standard-input*
 
68
#:*standard-output*
 
69
#:*terminal-io*
 
70
#:*trace-output*
 
71
#:+
 
72
#:++
 
73
#:+++
 
74
#:-
 
75
#:/
 
76
#://
 
77
#:///
 
78
#:/=
 
79
#:1+
 
80
#:1-
 
81
#:<
 
82
#:<=
 
83
#:=
 
84
#:>
 
85
#:>=
 
86
#:abort
 
87
#:abs
 
88
#:acons
 
89
#:acos
 
90
#:acosh
 
91
#:add-method
 
92
#:adjoin
 
93
#:adjust-array
 
94
#:adjustable-array-p
 
95
#:allocate-instance
 
96
#:alpha-char-p
 
97
#:alphanumericp
 
98
#:and
 
99
#:append
 
100
#:apply
 
101
#:apropos
 
102
#:apropos-list
 
103
#:aref
 
104
#:arithmetic-error
 
105
#:arithmetic-error-operands
 
106
#:arithmetic-error-operation
 
107
#:array
 
108
#:array-dimension
 
109
#:array-dimension-limit
 
110
#:array-dimensions
 
111
#:array-displacement
 
112
#:array-element-type
 
113
#:array-has-fill-pointer-p
 
114
#:array-in-bounds-p
 
115
#:array-rank
 
116
#:array-rank-limit
 
117
#:array-row-major-index
 
118
#:array-total-size
 
119
#:array-total-size-limit
 
120
#:arrayp
 
121
#:ash
 
122
#:asin
 
123
#:asinh
 
124
#:assert
 
125
#:assoc
 
126
#:assoc-if
 
127
#:assoc-if-not
 
128
#:atan
 
129
#:atanh
 
130
#:atom
 
131
#:base-char
 
132
#:base-string
 
133
#:bignum
 
134
#:bit
 
135
#:bit-and
 
136
#:bit-andc1
 
137
#:bit-andc2
 
138
#:bit-eqv
 
139
#:bit-ior
 
140
#:bit-nand
 
141
#:bit-nor
 
142
#:bit-not
 
143
#:bit-orc1
 
144
#:bit-orc2
 
145
#:bit-vector
 
146
#:bit-vector-p
 
147
#:bit-xor
 
148
#:block
 
149
#:boole
 
150
#:boole-1
 
151
#:boole-2
 
152
#:boole-and
 
153
#:boole-andc1
 
154
#:boole-andc2
 
155
#:boole-c1
 
156
#:boole-c2
 
157
#:boole-clr
 
158
#:boole-eqv
 
159
#:boole-ior
 
160
#:boole-nand
 
161
#:boole-nor
 
162
#:boole-orc1
 
163
#:boole-orc2
 
164
#:boole-set
 
165
#:boole-xor
 
166
#:boolean
 
167
#:both-case-p
 
168
#:boundp
 
169
#:break
 
170
#:broadcast-stream
 
171
#:broadcast-stream-streams
 
172
#:built-in-class
 
173
#:butlast
 
174
#:byte
 
175
#:byte-position
 
176
#:byte-size
 
177
#:caaaar
 
178
#:caaadr
 
179
#:caaar
 
180
#:caadar
 
181
#:caaddr
 
182
#:caadr
 
183
#:caar
 
184
#:cadaar
 
185
#:cadadr
 
186
#:cadar
 
187
#:caddar
 
188
#:cadddr
 
189
#:caddr
 
190
#:cadr
 
191
#:call-arguments-limit
 
192
#:call-method
 
193
#:call-next-method
 
194
#:car
 
195
#:case
 
196
#:catch
 
197
#:ccase
 
198
#:cdaaar
 
199
#:cdaadr
 
200
#:cdaar
 
201
#:cdadar
 
202
#:cdaddr
 
203
#:cdadr
 
204
#:cdar
 
205
#:cddaar
 
206
#:cddadr
 
207
#:cddar
 
208
#:cdddar
 
209
#:cddddr
 
210
#:cdddr
 
211
#:cddr
 
212
#:cdr
 
213
#:ceiling
 
214
#:cell-error
 
215
#:cell-error-name
 
216
#:cerror
 
217
#:change-class
 
218
#:char
 
219
#:char-code
 
220
#:char-code-limit
 
221
#:char-downcase
 
222
#:char-equal
 
223
#:char-greaterp
 
224
#:char-int
 
225
#:char-lessp
 
226
#:char-name
 
227
#:char-not-equal
 
228
#:char-not-greaterp
 
229
#:char-not-lessp
 
230
#:char-upcase
 
231
#:char/=
 
232
#:char<
 
233
#:char<=
 
234
#:char=
 
235
#:char>
 
236
#:char>=
 
237
#:character
 
238
#:characterp
 
239
#:check-type
 
240
#:cis
 
241
#:class
 
242
#:class-name
 
243
#:class-of
 
244
#:clear-input
 
245
#:clear-output
 
246
#:close
 
247
#:clrhash
 
248
#:code-char
 
249
#:coerce
 
250
#:compilation-speed
 
251
#:compile
 
252
#:compile-file
 
253
#:compile-file-pathname
 
254
#:compiled-function
 
255
#:compiled-function-p
 
256
#:compiler-macro
 
257
#:compiler-macro-function
 
258
#:complement
 
259
#:complex
 
260
#:complexp
 
261
#:compute-applicable-methods
 
262
#:compute-restarts
 
263
#:concatenate
 
264
#:concatenated-stream
 
265
#:concatenated-stream-streams
 
266
#:cond
 
267
#:condition
 
268
#:conjugate
 
269
#:cons
 
270
#:consp
 
271
#:constantly
 
272
#:constantp
 
273
#:continue
 
274
#:control-error
 
275
#:copy-alist
 
276
#:copy-list
 
277
#:copy-pprint-dispatch
 
278
#:copy-readtable
 
279
#:copy-seq
 
280
#:copy-structure
 
281
#:copy-symbol
 
282
#:copy-tree
 
283
#:cos
 
284
#:cosh
 
285
#:count
 
286
#:count-if
 
287
#:count-if-not
 
288
#:ctypecase
 
289
#:debug
 
290
#:decf
 
291
#:declaim
 
292
#:declaration
 
293
#:declare
 
294
#:decode-float
 
295
#:decode-universal-time
 
296
#:defclass
 
297
#:defconstant
 
298
#:defgeneric
 
299
#:define-compiler-macro
 
300
#:define-condition
 
301
#:define-method-combination
 
302
#:define-modify-macro
 
303
#:define-setf-expander
 
304
#:define-symbol-macro
 
305
#:defmacro
 
306
#:defmethod
 
307
#:defpackage
 
308
#:defparameter
 
309
#:defsetf
 
310
#:defstruct
 
311
#:deftype
 
312
#:defun
 
313
#:defvar
 
314
#:delete
 
315
#:delete-duplicates
 
316
#:delete-file
 
317
#:delete-if
 
318
#:delete-if-not
 
319
#:delete-package
 
320
#:denominator
 
321
#:deposit-field
 
322
#:describe
 
323
#:describe-object
 
324
#:destructuring-bind
 
325
#:digit-char
 
326
#:digit-char-p
 
327
#:directory
 
328
#:directory-namestring
 
329
#:disassemble
 
330
#:division-by-zero
 
331
#:do
 
332
#:do*
 
333
#:do-all-symbols
 
334
#:do-external-symbols
 
335
#:do-symbols
 
336
#:documentation
 
337
#:dolist
 
338
#:dotimes
 
339
#:double-float
 
340
#:double-float-epsilon
 
341
#:double-float-negative-epsilon
 
342
#:dpb
 
343
#:dribble
 
344
#:dynamic-extent
 
345
#:ecase
 
346
#:echo-stream
 
347
#:echo-stream-input-stream
 
348
#:echo-stream-output-stream
 
349
#:ed
 
350
#:eighth
 
351
#:elt
 
352
#:encode-universal-time
 
353
#:end-of-file
 
354
#:endp
 
355
#:enough-namestring
 
356
#:ensure-directories-exist
 
357
#:ensure-generic-function
 
358
#:eq
 
359
#:eql
 
360
#:equal
 
361
#:equalp
 
362
#:error
 
363
#:etypecase
 
364
#:eval
 
365
#:eval-when
 
366
#:evenp
 
367
#:every
 
368
#:exp
 
369
#:export
 
370
#:expt
 
371
#:extended-char
 
372
#:fboundp
 
373
#:fceiling
 
374
#:fdefinition
 
375
#:ffloor
 
376
#:fifth
 
377
#:file-author
 
378
#:file-error
 
379
#:file-error-pathname
 
380
#:file-length
 
381
#:file-namestring
 
382
#:file-position
 
383
#:file-stream
 
384
#:file-string-length
 
385
#:file-write-date
 
386
#:fill
 
387
#:fill-pointer
 
388
#:find
 
389
#:find-all-symbols
 
390
#:find-class
 
391
#:find-if
 
392
#:find-if-not
 
393
#:find-method
 
394
#:find-package
 
395
#:find-restart
 
396
#:find-symbol
 
397
#:finish-output
 
398
#:first
 
399
#:fixnum
 
400
#:flet
 
401
#:float
 
402
#:float-digits
 
403
#:float-precision
 
404
#:float-radix
 
405
#:float-sign
 
406
#:floating-point-inexact
 
407
#:floating-point-invalid-operation
 
408
#:floating-point-overflow
 
409
#:floating-point-underflow
 
410
#:floatp
 
411
#:floor
 
412
#:fmakunbound
 
413
#:force-output
 
414
#:format
 
415
#:formatter
 
416
#:fourth
 
417
#:fresh-line
 
418
#:fround
 
419
#:ftruncate
 
420
#:ftype
 
421
#:funcall
 
422
#:function
 
423
#:function-keywords
 
424
#:function-lambda-expression
 
425
#:functionp
 
426
#:gcd
 
427
#:generic-function
 
428
#:gensym
 
429
#:gentemp
 
430
#:get
 
431
#:get-decoded-time
 
432
#:get-dispatch-macro-character
 
433
#:get-internal-real-time
 
434
#:get-internal-run-time
 
435
#:get-macro-character
 
436
#:get-output-stream-string
 
437
#:get-properties
 
438
#:get-setf-expansion
 
439
#:get-universal-time
 
440
#:getf
 
441
#:gethash
 
442
#:go
 
443
#:graphic-char-p
 
444
#:handler-bind
 
445
#:handler-case
 
446
#:hash-table
 
447
#:hash-table-count
 
448
#:hash-table-p
 
449
#:hash-table-rehash-size
 
450
#:hash-table-rehash-threshold
 
451
#:hash-table-size
 
452
#:hash-table-test
 
453
#:host-namestring
 
454
#:identity
 
455
#:if
 
456
#:ignorable
 
457
#:ignore
 
458
#:ignore-errors
 
459
#:imagpart
 
460
#:import
 
461
#:in-package
 
462
#:incf
 
463
#:initialize-instance
 
464
#:inline
 
465
#:input-stream-p
 
466
#:inspect
 
467
#:integer
 
468
#:integer-decode-float
 
469
#:integer-length
 
470
#:integerp
 
471
#:interactive-stream-p
 
472
#:intern
 
473
#:internal-time-units-per-second
 
474
#:intersection
 
475
#:invalid-method-error
 
476
#:invoke-debugger
 
477
#:invoke-restart
 
478
#:invoke-restart-interactively
 
479
#:isqrt
 
480
#:keyword
 
481
#:keywordp
 
482
#:labels
 
483
#:lambda
 
484
#:lambda-list-keywords
 
485
#:lambda-parameters-limit
 
486
#:last
 
487
#:lcm
 
488
#:ldb
 
489
#:ldb-test
 
490
#:ldiff
 
491
#:least-negative-double-float
 
492
#:least-negative-long-float
 
493
#:least-negative-normalized-double-float
 
494
#:least-negative-normalized-long-float
 
495
#:least-negative-normalized-short-float
 
496
#:least-negative-normalized-single-float
 
497
#:least-negative-short-float
 
498
#:least-negative-single-float
 
499
#:least-positive-double-float
 
500
#:least-positive-long-float
 
501
#:least-positive-normalized-double-float
 
502
#:least-positive-normalized-long-float
 
503
#:least-positive-normalized-short-float
 
504
#:least-positive-normalized-single-float
 
505
#:least-positive-short-float
 
506
#:least-positive-single-float
 
507
#:length
 
508
#:let
 
509
#:let*
 
510
#:lisp-implementation-type
 
511
#:lisp-implementation-version
 
512
#:list
 
513
#:list*
 
514
#:list-all-packages
 
515
#:list-length
 
516
#:listen
 
517
#:listp
 
518
#:load
 
519
#:load-logical-pathname-translations
 
520
#:load-time-value
 
521
#:locally
 
522
#:log
 
523
#:logand
 
524
#:logandc1
 
525
#:logandc2
 
526
#:logbitp
 
527
#:logcount
 
528
#:logeqv
 
529
#:logical-pathname
 
530
#:logical-pathname-translations
 
531
#:logior
 
532
#:lognand
 
533
#:lognor
 
534
#:lognot
 
535
#:logorc1
 
536
#:logorc2
 
537
#:logtest
 
538
#:logxor
 
539
#:long-float
 
540
#:long-float-epsilon
 
541
#:long-float-negative-epsilon
 
542
#:long-site-name
 
543
#:loop
 
544
#:loop-finish
 
545
#:lower-case-p
 
546
#:machine-instance
 
547
#:machine-type
 
548
#:machine-version
 
549
#:macro-function
 
550
#:macroexpand
 
551
#:macroexpand-1
 
552
#:macrolet
 
553
#:make-array
 
554
#:make-broadcast-stream
 
555
#:make-concatenated-stream
 
556
#:make-condition
 
557
#:make-dispatch-macro-character
 
558
#:make-echo-stream
 
559
#:make-hash-table
 
560
#:make-instance
 
561
#:make-instances-obsolete
 
562
#:make-list
 
563
#:make-load-form
 
564
#:make-load-form-saving-slots
 
565
#:make-method
 
566
#:make-package
 
567
#:make-pathname
 
568
#:make-random-state
 
569
#:make-sequence
 
570
#:make-string
 
571
#:make-string-input-stream
 
572
#:make-string-output-stream
 
573
#:make-symbol
 
574
#:make-synonym-stream
 
575
#:make-two-way-stream
 
576
#:makunbound
 
577
#:map
 
578
#:map-into
 
579
#:mapc
 
580
#:mapcan
 
581
#:mapcar
 
582
#:mapcon
 
583
#:maphash
 
584
#:mapl
 
585
#:maplist
 
586
#:mask-field
 
587
#:max
 
588
#:member
 
589
#:member-if
 
590
#:member-if-not
 
591
#:merge
 
592
#:merge-pathnames
 
593
#:method
 
594
#:method-combination
 
595
#:method-combination-error
 
596
#:method-qualifiers
 
597
#:min
 
598
#:minusp
 
599
#:mismatch
 
600
#:mod
 
601
#:most-negative-double-float
 
602
#:most-negative-fixnum
 
603
#:most-negative-long-float
 
604
#:most-negative-short-float
 
605
#:most-negative-single-float
 
606
#:most-positive-double-float
 
607
#:most-positive-fixnum
 
608
#:most-positive-long-float
 
609
#:most-positive-short-float
 
610
#:most-positive-single-float
 
611
#:muffle-warning
 
612
#:multiple-value-bind
 
613
#:multiple-value-call
 
614
#:multiple-value-list
 
615
#:multiple-value-prog1
 
616
#:multiple-value-setq
 
617
#:multiple-values-limit
 
618
#:name-char
 
619
#:namestring
 
620
#:nbutlast
 
621
#:nconc
 
622
#:next-method-p
 
623
#:nil
 
624
#:nintersection
 
625
#:ninth
 
626
#:no-applicable-method
 
627
#:no-next-method
 
628
#:not
 
629
#:notany
 
630
#:notevery
 
631
#:notinline
 
632
#:nreconc
 
633
#:nreverse
 
634
#:nset-difference
 
635
#:nset-exclusive-or
 
636
#:nstring-capitalize
 
637
#:nstring-downcase
 
638
#:nstring-upcase
 
639
#:nsublis
 
640
#:nsubst
 
641
#:nsubst-if
 
642
#:nsubst-if-not
 
643
#:nsubstitute
 
644
#:nsubstitute-if
 
645
#:nsubstitute-if-not
 
646
#:nth
 
647
#:nth-value
 
648
#:nthcdr
 
649
#:null
 
650
#:number
 
651
#:numberp
 
652
#:numerator
 
653
#:nunion
 
654
#:oddp
 
655
#:open
 
656
#:open-stream-p
 
657
#:optimize
 
658
#:or
 
659
#:otherwise
 
660
#:output-stream-p
 
661
#:package
 
662
#:package-error
 
663
#:package-error-package
 
664
#:package-name
 
665
#:package-nicknames
 
666
#:package-shadowing-symbols
 
667
#:package-use-list
 
668
#:package-used-by-list
 
669
#:packagep
 
670
#:pairlis
 
671
#:parse-error
 
672
#:parse-integer
 
673
#:parse-namestring
 
674
#:pathname
 
675
#:pathname-device
 
676
#:pathname-directory
 
677
#:pathname-host
 
678
#:pathname-match-p
 
679
#:pathname-name
 
680
#:pathname-type
 
681
#:pathname-version
 
682
#:pathnamep
 
683
#:peek-char
 
684
#:phase
 
685
#:pi
 
686
#:plusp
 
687
#:pop
 
688
#:position
 
689
#:position-if
 
690
#:position-if-not
 
691
#:pprint
 
692
#:pprint-dispatch
 
693
#:pprint-exit-if-list-exhausted
 
694
#:pprint-fill
 
695
#:pprint-indent
 
696
#:pprint-linear
 
697
#:pprint-logical-block
 
698
#:pprint-newline
 
699
#:pprint-pop
 
700
#:pprint-tab
 
701
#:pprint-tabular
 
702
#:prin1
 
703
#:prin1-to-string
 
704
#:princ
 
705
#:princ-to-string
 
706
#:print
 
707
#:print-not-readable
 
708
#:print-not-readable-object
 
709
#:print-object
 
710
#:print-unreadable-object
 
711
#:probe-file
 
712
#:proclaim
 
713
#:prog
 
714
#:prog*
 
715
#:prog1
 
716
#:prog2
 
717
#:progn
 
718
#:program-error
 
719
#:progv
 
720
#:provide
 
721
#:psetf
 
722
#:psetq
 
723
#:push
 
724
#:pushnew
 
725
#:quote
 
726
#:random
 
727
#:random-state
 
728
#:random-state-p
 
729
#:rassoc
 
730
#:rassoc-if
 
731
#:rassoc-if-not
 
732
#:ratio
 
733
#:rational
 
734
#:rationalize
 
735
#:rationalp
 
736
#:read
 
737
#:read-byte
 
738
#:read-char
 
739
#:read-char-no-hang
 
740
#:read-delimited-list
 
741
#:read-from-string
 
742
#:read-line
 
743
#:read-preserving-whitespace
 
744
#:read-sequence
 
745
#:reader-error
 
746
#:readtable
 
747
#:readtable-case
 
748
#:readtablep
 
749
#:real
 
750
#:realp
 
751
#:realpart
 
752
#:reduce
 
753
#:reinitialize-instance
 
754
#:rem
 
755
#:remf
 
756
#:remhash
 
757
#:remove
 
758
#:remove-duplicates
 
759
#:remove-if
 
760
#:remove-if-not
 
761
#:remove-method
 
762
#:remprop
 
763
#:rename-file
 
764
#:rename-package
 
765
#:replace
 
766
#:require
 
767
#:rest
 
768
#:restart
 
769
#:restart-bind
 
770
#:restart-case
 
771
#:restart-name
 
772
#:return
 
773
#:return-from
 
774
#:revappend
 
775
#:reverse
 
776
#:room
 
777
#:rotatef
 
778
#:round
 
779
#:row-major-aref
 
780
#:rplaca
 
781
#:rplacd
 
782
#:safety
 
783
#:satisfies
 
784
#:sbit
 
785
#:scale-float
 
786
#:schar
 
787
#:search
 
788
#:second
 
789
#:sequence
 
790
#:serious-condition
 
791
#:set
 
792
#:set-difference
 
793
#:set-dispatch-macro-character
 
794
#:set-exclusive-or
 
795
#:set-macro-character
 
796
#:set-pprint-dispatch
 
797
#:set-syntax-from-char
 
798
#:setf
 
799
#:setq
 
800
#:seventh
 
801
#:shadow
 
802
#:shadowing-import
 
803
#:shared-initialize
 
804
#:shiftf
 
805
#:short-float
 
806
#:short-float-epsilon
 
807
#:short-float-negative-epsilon
 
808
#:short-site-name
 
809
#:signal
 
810
#:signed-byte
 
811
#:signum
 
812
#:simple-array
 
813
#:simple-base-string
 
814
#:simple-bit-vector
 
815
#:simple-bit-vector-p
 
816
#:simple-condition
 
817
#:simple-condition-format-arguments
 
818
#:simple-condition-format-control
 
819
#:simple-error
 
820
#:simple-string
 
821
#:simple-string-p
 
822
#:simple-type-error
 
823
#:simple-vector
 
824
#:simple-vector-p
 
825
#:simple-warning
 
826
#:sin
 
827
#:single-float
 
828
#:single-float-epsilon
 
829
#:single-float-negative-epsilon
 
830
#:sinh
 
831
#:sixth
 
832
#:sleep
 
833
#:slot-boundp
 
834
#:slot-exists-p
 
835
#:slot-makunbound
 
836
#:slot-missing
 
837
#:slot-unbound
 
838
#:slot-value
 
839
#:software-type
 
840
#:software-version
 
841
#:some
 
842
#:sort
 
843
#:space
 
844
#:special
 
845
#:special-operator-p
 
846
#:speed
 
847
#:sqrt
 
848
#:stable-sort
 
849
#:standard
 
850
#:standard-char
 
851
#:standard-char-p
 
852
#:standard-class
 
853
#:standard-generic-function
 
854
#:standard-method
 
855
#:standard-object
 
856
#:step
 
857
#:storage-condition
 
858
#:store-value
 
859
#:stream
 
860
#:stream-element-type
 
861
#:stream-error
 
862
#:stream-error-stream
 
863
#:stream-external-format
 
864
#:streamp
 
865
#:string
 
866
#:string-capitalize
 
867
#:string-downcase
 
868
#:string-equal
 
869
#:string-greaterp
 
870
#:string-left-trim
 
871
#:string-lessp
 
872
#:string-not-equal
 
873
#:string-not-greaterp
 
874
#:string-not-lessp
 
875
#:string-right-trim
 
876
#:string-stream
 
877
#:string-trim
 
878
#:string-upcase
 
879
#:string/=
 
880
#:string<
 
881
#:string<=
 
882
#:string=
 
883
#:string>
 
884
#:string>=
 
885
#:stringp
 
886
#:structure
 
887
#:structure-class
 
888
#:structure-object
 
889
#:style-warning
 
890
#:sublis
 
891
#:subseq
 
892
#:subsetp
 
893
#:subst
 
894
#:subst-if
 
895
#:subst-if-not
 
896
#:substitute
 
897
#:substitute-if
 
898
#:substitute-if-not
 
899
#:subtypep
 
900
#:svref
 
901
#:sxhash
 
902
#:symbol
 
903
#:symbol-function
 
904
#:symbol-macrolet
 
905
#:symbol-name
 
906
#:symbol-package
 
907
#:symbol-plist
 
908
#:symbol-value
 
909
#:symbolp
 
910
#:synonym-stream
 
911
#:synonym-stream-symbol
 
912
#:t
 
913
#:tagbody
 
914
#:tailp
 
915
#:tan
 
916
#:tanh
 
917
#:tenth
 
918
#:terpri
 
919
#:the
 
920
#:third
 
921
#:throw
 
922
#:time
 
923
#:trace
 
924
#:translate-logical-pathname
 
925
#:translate-pathname
 
926
#:tree-equal
 
927
#:truename
 
928
#:truncate
 
929
#:two-way-stream
 
930
#:two-way-stream-input-stream
 
931
#:two-way-stream-output-stream
 
932
#:type
 
933
#:type-error
 
934
#:type-error-datum
 
935
#:type-error-expected-type
 
936
#:type-of
 
937
#:typecase
 
938
#:typep
 
939
#:unbound-slot
 
940
#:unbound-slot-instance
 
941
#:unbound-variable
 
942
#:undefined-function
 
943
#:unexport
 
944
#:unintern
 
945
#:union
 
946
#:unless
 
947
#:unread-char
 
948
#:unsigned-byte
 
949
#:untrace
 
950
#:unuse-package
 
951
#:unwind-protect
 
952
#:update-instance-for-different-class
 
953
#:update-instance-for-redefined-class
 
954
#:upgraded-array-element-type
 
955
#:upgraded-complex-part-type
 
956
#:upper-case-p
 
957
#:use-package
 
958
#:use-value
 
959
#:user-homedir-pathname
 
960
#:values
 
961
#:values-list
 
962
#:variable
 
963
#:vector
 
964
#:vector-pop
 
965
#:vector-push
 
966
#:vector-push-extend
 
967
#:vectorp
 
968
#:warn
 
969
#:warning
 
970
#:when
 
971
#:wild-pathname-p
 
972
#:with-accessors
 
973
#:with-compilation-unit
 
974
#:with-condition-restarts
 
975
#:with-hash-table-iterator
 
976
#:with-input-from-string
 
977
#:with-open-file
 
978
#:with-open-stream
 
979
#:with-output-to-string
 
980
#:with-package-iterator
 
981
#:with-simple-restart
 
982
#:with-slots
 
983
#:with-standard-io-syntax
 
984
#:write
 
985
#:write-byte
 
986
#:write-char
 
987
#:write-line
 
988
#:write-sequence
 
989
#:write-string
 
990
#:write-to-string
 
991
#:y-or-n-p
 
992
#:yes-or-no-p
 
993
#:zerop)))
 
994
 
 
995
(defparameter *cl-symbols*
 
996
  (let ((pkg (find-package :common-lisp)))
 
997
    (#-clisp progn
 
998
     #+clisp ext:without-package-lock  #+clisp ("COMMON-LISP")
 
999
     (mapcar #'(lambda (str) (intern str pkg))
 
1000
             *cl-symbol-names*))))
 
1001
 
 
1002
;;; Symbols classified by their kind in the spec
 
1003
(defparameter *cl-function-symbols*
 
1004
  '(
 
1005
    *
 
1006
    +
 
1007
    -
 
1008
    /
 
1009
    /=
 
1010
    1+
 
1011
    1-
 
1012
    <
 
1013
    <=
 
1014
    =
 
1015
    >
 
1016
    >=
 
1017
    abort
 
1018
    abs
 
1019
    acons
 
1020
    acos
 
1021
    acosh
 
1022
    adjoin
 
1023
    adjust-array
 
1024
    adjustable-array-p
 
1025
    alpha-char-p
 
1026
    alphanumericp
 
1027
    append
 
1028
    apply
 
1029
    apropos
 
1030
    apropos-list
 
1031
    arithmetic-error-operands
 
1032
    arithmetic-error-operation
 
1033
    array-dimension
 
1034
    array-dimensions
 
1035
    array-displacement
 
1036
    array-element-type
 
1037
    array-has-fill-pointer-p
 
1038
    array-in-bounds-p
 
1039
    array-rank
 
1040
    array-row-major-index
 
1041
    array-total-size
 
1042
    arrayp
 
1043
    ash
 
1044
    asin
 
1045
    asinh
 
1046
    assoc-if-not
 
1047
    assoc
 
1048
    assoc-if
 
1049
    atan
 
1050
    atanh
 
1051
    atom
 
1052
    bit-and
 
1053
    bit-andc1
 
1054
    bit-andc2
 
1055
    bit-eqv
 
1056
    bit-ior
 
1057
    bit-nand
 
1058
    bit-nor
 
1059
    bit-not
 
1060
    bit-orc1
 
1061
    bit-orc2
 
1062
    bit-vector-p
 
1063
    bit-xor
 
1064
    boole
 
1065
    both-case-p
 
1066
    boundp
 
1067
    break
 
1068
    broadcast-stream-streams
 
1069
    butlast
 
1070
    byte
 
1071
    byte-position
 
1072
    byte-size
 
1073
    ceiling
 
1074
    cell-error-name
 
1075
    cerror
 
1076
    char-code
 
1077
    char-downcase
 
1078
    char-equal
 
1079
    char-greaterp
 
1080
    char-int
 
1081
    char-lessp
 
1082
    char-name
 
1083
    char-not-equal
 
1084
    char-not-greaterp
 
1085
    char-not-lessp
 
1086
    char-upcase
 
1087
    char/=
 
1088
    char<
 
1089
    char<=
 
1090
    char=
 
1091
    char>
 
1092
    char>=
 
1093
    character
 
1094
    characterp
 
1095
    cis
 
1096
    class-of
 
1097
    clear-input
 
1098
    clear-output
 
1099
    close
 
1100
    clrhash
 
1101
    code-char
 
1102
    coerce
 
1103
    compile
 
1104
    compile-file
 
1105
    compile-file-pathname
 
1106
    compiled-function-p
 
1107
    complement
 
1108
    complex
 
1109
    complexp
 
1110
    compute-restarts
 
1111
    concatenate
 
1112
    concatenated-stream-streams
 
1113
    conjugate
 
1114
    cons
 
1115
    consp
 
1116
    constantly
 
1117
    constantp
 
1118
    continue
 
1119
    copy-alist
 
1120
    copy-list
 
1121
    copy-pprint-dispatch
 
1122
    copy-readtable
 
1123
    copy-seq
 
1124
    copy-structure
 
1125
    copy-symbol
 
1126
    copy-tree
 
1127
    cos
 
1128
    cosh
 
1129
    count
 
1130
    count-if
 
1131
    count-if-not
 
1132
    decode-float
 
1133
    decode-universal-time
 
1134
    delete
 
1135
    delete-duplicates
 
1136
    delete-file
 
1137
    delete-if
 
1138
    delete-if-not
 
1139
    delete-package
 
1140
    denominator
 
1141
    deposit-field
 
1142
    describe
 
1143
    digit-char
 
1144
    digit-char-p
 
1145
    directory
 
1146
    directory-namestring
 
1147
    disassemble
 
1148
    dpb
 
1149
    dribble
 
1150
    echo-stream-input-stream
 
1151
    echo-stream-output-stream
 
1152
    ;;; The function ED is commented out because an implementation
 
1153
    ;;; needn't provide this function.
 
1154
    ;; ed
 
1155
    encode-universal-time
 
1156
    endp
 
1157
    enough-namestring
 
1158
    ensure-directories-exist
 
1159
    ensure-generic-function
 
1160
    eq
 
1161
    eql
 
1162
    equal
 
1163
    equalp
 
1164
    error
 
1165
    eval
 
1166
    evenp
 
1167
    every
 
1168
    exp
 
1169
    export
 
1170
    expt
 
1171
    fboundp
 
1172
    fceiling
 
1173
    ffloor
 
1174
    file-author
 
1175
    file-error-pathname
 
1176
    file-length
 
1177
    file-namestring
 
1178
    file-position
 
1179
    file-string-length
 
1180
    file-write-date
 
1181
    fill
 
1182
    find
 
1183
    find-all-symbols
 
1184
    find-if
 
1185
    find-if-not
 
1186
    find-package
 
1187
    find-restart
 
1188
    find-symbol
 
1189
    finish-output
 
1190
    float
 
1191
    float-digits
 
1192
    float-precision
 
1193
    float-radix
 
1194
    float-sign
 
1195
    floatp
 
1196
    floor
 
1197
    fmakunbound
 
1198
    force-output
 
1199
    format
 
1200
    fresh-line
 
1201
    fround
 
1202
    funcall
 
1203
    function-lambda-expression
 
1204
    functionp
 
1205
    gcd
 
1206
    gensym
 
1207
    gentemp
 
1208
    get-decoded-time
 
1209
    get-dispatch-macro-character
 
1210
    get-internal-real-time
 
1211
    get-internal-run-time
 
1212
    get-macro-character
 
1213
    get-output-stream-string
 
1214
    get-properties
 
1215
    get-setf-expansion
 
1216
    get-universal-time
 
1217
    graphic-char-p
 
1218
    hash-table-count
 
1219
    hash-table-p
 
1220
    hash-table-rehash-size
 
1221
    hash-table-rehash-threshold
 
1222
    hash-table-size
 
1223
    hash-table-test
 
1224
    host-namestring
 
1225
    identity
 
1226
    imagpart
 
1227
    import
 
1228
    input-stream-p
 
1229
    inspect
 
1230
    integer-decode-float
 
1231
    integer-length
 
1232
    integerp
 
1233
    interactive-stream-p
 
1234
    intern
 
1235
    intersection
 
1236
    invalid-method-error
 
1237
    invoke-debugger
 
1238
    invoke-restart
 
1239
    invoke-restart-interactively
 
1240
    isqrt
 
1241
    keywordp
 
1242
    last
 
1243
    lcm
 
1244
    ldb-test
 
1245
    ldiff
 
1246
    length
 
1247
    lisp-implementation-type
 
1248
    lisp-implementation-version
 
1249
    list
 
1250
    list*
 
1251
    list-all-packages
 
1252
    list-length
 
1253
    listen
 
1254
    listp
 
1255
    load
 
1256
    load-logical-pathname-translations
 
1257
    log
 
1258
    logand
 
1259
    logandc1
 
1260
    logandc2
 
1261
    logbitp
 
1262
    logcount
 
1263
    logeqv
 
1264
    logical-pathname
 
1265
    logior
 
1266
    lognand
 
1267
    lognor
 
1268
    lognot
 
1269
    logorc1
 
1270
    logorc2
 
1271
    logtest
 
1272
    logxor
 
1273
    long-site-name
 
1274
    lower-case-p
 
1275
    machine-instance
 
1276
    machine-type
 
1277
    machine-version
 
1278
    macroexpand
 
1279
    macroexpand-1
 
1280
    make-array
 
1281
    make-broadcast-stream
 
1282
    make-concatenated-stream
 
1283
    make-condition
 
1284
    make-dispatch-macro-character
 
1285
    make-echo-stream
 
1286
    make-hash-table
 
1287
    make-list
 
1288
    make-load-form-saving-slots
 
1289
    make-package
 
1290
    make-pathname
 
1291
    make-random-state
 
1292
    make-sequence
 
1293
    make-string
 
1294
    make-string-input-stream
 
1295
    make-string-output-stream
 
1296
    make-symbol
 
1297
    make-synonym-stream
 
1298
    make-two-way-stream
 
1299
    makunbound
 
1300
    map
 
1301
    map-into
 
1302
    mapc
 
1303
    mapcan
 
1304
    mapcar
 
1305
    mapcon
 
1306
    maphash
 
1307
    mapl
 
1308
    maplist
 
1309
    max
 
1310
    member
 
1311
    member-if
 
1312
    member-if-not
 
1313
    merge
 
1314
    merge-pathnames
 
1315
    method-combination-error
 
1316
    min
 
1317
    minusp
 
1318
    mismatch
 
1319
    mod
 
1320
    muffle-warning
 
1321
    name-char
 
1322
    namestring
 
1323
    nbutlast
 
1324
    nconc
 
1325
    nintersection
 
1326
    not
 
1327
    notany
 
1328
    notevery
 
1329
    nreconc
 
1330
    nreverse
 
1331
    nset-difference
 
1332
    nset-exclusive-or
 
1333
    nstring-capitalize
 
1334
    nstring-downcase
 
1335
    nstring-upcase
 
1336
    nsublis
 
1337
    nsubst
 
1338
    nsubst-if
 
1339
    nsubst-if-not
 
1340
    nsubstitute
 
1341
    nsubstitute-if
 
1342
    nsubstitute-if-not
 
1343
    nthcdr
 
1344
    null
 
1345
    numberp
 
1346
    numerator
 
1347
    nunion
 
1348
    oddp
 
1349
    open
 
1350
    open-stream-p
 
1351
    output-stream-p
 
1352
    package-error-package
 
1353
    package-name
 
1354
    package-nicknames
 
1355
    package-shadowing-symbols
 
1356
    package-use-list
 
1357
    package-used-by-list
 
1358
    packagep
 
1359
    pairlis
 
1360
    parse-integer
 
1361
    parse-namestring
 
1362
    pathname
 
1363
    pathname-device
 
1364
    pathname-directory
 
1365
    pathname-host
 
1366
    pathname-match-p
 
1367
    pathname-name
 
1368
    pathname-type
 
1369
    pathname-version
 
1370
    pathnamep
 
1371
    peek-char
 
1372
    phase
 
1373
    plusp
 
1374
    position
 
1375
    position-if
 
1376
    position-if-not
 
1377
    pprint
 
1378
    pprint-dispatch
 
1379
    pprint-fill
 
1380
    pprint-indent
 
1381
    pprint-linear
 
1382
    pprint-newline
 
1383
    pprint-tab
 
1384
    pprint-tabular
 
1385
    prin1
 
1386
    prin1-to-string
 
1387
    princ
 
1388
    princ-to-string
 
1389
    print
 
1390
    print-not-readable-object
 
1391
    probe-file
 
1392
    proclaim
 
1393
    provide
 
1394
    random
 
1395
    random-state-p
 
1396
    rassoc
 
1397
    rassoc-if
 
1398
    rassoc-if-not
 
1399
    rational
 
1400
    rationalize
 
1401
    rationalp
 
1402
    read
 
1403
    read-byte
 
1404
    read-char
 
1405
    read-char-no-hang
 
1406
    read-delimited-list
 
1407
    read-from-string
 
1408
    read-line
 
1409
    read-preserving-whitespace
 
1410
    read-sequence
 
1411
    readtablep
 
1412
    realp
 
1413
    realpart
 
1414
    reduce
 
1415
    rem
 
1416
    remhash
 
1417
    remove
 
1418
    remove-duplicates
 
1419
    remove-if
 
1420
    remove-if-not
 
1421
    remprop
 
1422
    rename-file
 
1423
    rename-package
 
1424
    replace
 
1425
    require
 
1426
    restart-name
 
1427
    revappend
 
1428
    reverse
 
1429
    room
 
1430
    round
 
1431
    rplaca
 
1432
    rplacd
 
1433
    scale-float
 
1434
    search
 
1435
    set
 
1436
    set-difference
 
1437
    set-dispatch-macro-character
 
1438
    set-exclusive-or
 
1439
    set-macro-character
 
1440
    set-pprint-dispatch
 
1441
    set-syntax-from-char
 
1442
    shadow
 
1443
    shadowing-import
 
1444
    short-site-name
 
1445
    signal
 
1446
    signum
 
1447
    simple-bit-vector-p
 
1448
    simple-condition-format-arguments
 
1449
    simple-condition-format-control
 
1450
    simple-string-p
 
1451
    simple-vector-p
 
1452
    sin
 
1453
    sinh
 
1454
    slot-exists-p
 
1455
    sleep
 
1456
    slot-boundp
 
1457
    slot-makunbound
 
1458
    slot-value
 
1459
    software-type
 
1460
    software-version
 
1461
    some
 
1462
    sort
 
1463
    special-operator-p
 
1464
    sqrt
 
1465
    stable-sort
 
1466
    standard-char-p
 
1467
    store-value
 
1468
    stream-element-type
 
1469
    stream-error-stream
 
1470
    stream-external-format
 
1471
    streamp
 
1472
    string
 
1473
    string-capitalize
 
1474
    string-downcase
 
1475
    string-equal
 
1476
    string-greaterp
 
1477
    string-left-trim
 
1478
    string-lessp
 
1479
    string-not-equal
 
1480
    string-not-greaterp
 
1481
    string-not-lessp
 
1482
    string-right-trim
 
1483
    string-trim
 
1484
    string-upcase
 
1485
    string/=
 
1486
    string<
 
1487
    string<=
 
1488
    string=
 
1489
    string>
 
1490
    string>=
 
1491
    stringp
 
1492
    sublis
 
1493
    subsetp
 
1494
    subst
 
1495
    subst-if
 
1496
    subst-if-not
 
1497
    substitute
 
1498
    substitute-if
 
1499
    substitute-if-not
 
1500
    subtypep
 
1501
    sxhash
 
1502
    symbol-name
 
1503
    symbol-package
 
1504
    symbolp
 
1505
    synonym-stream-symbol
 
1506
    tailp
 
1507
    tan
 
1508
    tanh
 
1509
    terpri
 
1510
    translate-logical-pathname
 
1511
    translate-pathname
 
1512
    tree-equal
 
1513
    truename
 
1514
    truncate ftruncate
 
1515
    two-way-stream-input-stream
 
1516
    two-way-stream-output-stream
 
1517
    type-error-datum
 
1518
    type-error-expected-type
 
1519
    type-of
 
1520
    typep
 
1521
    unbound-slot-instance
 
1522
    unexport
 
1523
    unintern
 
1524
    union
 
1525
    unread-char
 
1526
    unuse-package
 
1527
    upgraded-array-element-type
 
1528
    upgraded-complex-part-type
 
1529
    upper-case-p
 
1530
    use-package
 
1531
    use-value
 
1532
    user-homedir-pathname
 
1533
    values-list
 
1534
    vector
 
1535
    vector-pop
 
1536
    vector-push
 
1537
    vector-push-extend
 
1538
    vectorp
 
1539
    warn
 
1540
    wild-pathname-p
 
1541
    write
 
1542
    write-byte
 
1543
    write-char
 
1544
    write-line
 
1545
    write-sequence
 
1546
    write-string
 
1547
    write-to-string
 
1548
    y-or-n-p
 
1549
    yes-or-no-p
 
1550
    zerop
 
1551
    ))
 
1552
 
 
1553
(defparameter *cl-variable-symbols*
 
1554
  '(
 
1555
    *
 
1556
    **
 
1557
    ***
 
1558
    *break-on-signals*
 
1559
    *compile-file-pathname*
 
1560
    *compile-file-truename*
 
1561
    *compile-print*
 
1562
    *compile-verbose*
 
1563
    *debug-io*
 
1564
    *debugger-hook*
 
1565
    *default-pathname-defaults*
 
1566
    *error-output*
 
1567
    *features*
 
1568
    *gensym-counter*
 
1569
    *load-pathname*
 
1570
    *load-print*
 
1571
    *load-truename*
 
1572
    *load-verbose*
 
1573
    *macroexpand-hook*
 
1574
    *modules*
 
1575
    *package*
 
1576
    *print-array*
 
1577
    *print-base*
 
1578
    *print-case*
 
1579
    *print-circle*
 
1580
    *print-escape*
 
1581
    *print-gensym*
 
1582
    *print-length*
 
1583
    *print-level*
 
1584
    *print-lines*
 
1585
    *print-miser-width*
 
1586
    *print-pprint-dispatch*
 
1587
    *print-pretty*
 
1588
    *print-radix*
 
1589
    *print-readably*
 
1590
    *print-right-margin*
 
1591
    *query-io*
 
1592
    *random-state*
 
1593
    *read-base*
 
1594
    *read-default-float-format*
 
1595
    *read-eval*
 
1596
    *read-suppress*
 
1597
    *readtable*
 
1598
    *standard-input*
 
1599
    *standard-output*
 
1600
    *terminal-io*
 
1601
    *trace-output*
 
1602
    +
 
1603
    ++
 
1604
    +++
 
1605
    /
 
1606
    //
 
1607
    ///
 
1608
    -
 
1609
    ))
 
1610
 
 
1611
(defparameter *cl-constant-symbols*
 
1612
  '(
 
1613
    array-dimension-limit
 
1614
    array-rank-limit
 
1615
    array-total-size-limit
 
1616
    boole-1
 
1617
    boole-2
 
1618
    boole-and
 
1619
    boole-andc1
 
1620
    boole-andc2
 
1621
    boole-c1
 
1622
    boole-c2
 
1623
    boole-clr
 
1624
    boole-eqv
 
1625
    boole-ior
 
1626
    boole-nand
 
1627
    boole-nor
 
1628
    boole-orc1
 
1629
    boole-orc2
 
1630
    boole-set
 
1631
    boole-xor
 
1632
    call-arguments-limit
 
1633
    char-code-limit
 
1634
    double-float-epsilon
 
1635
    double-float-negative-epsilon
 
1636
    internal-time-units-per-second
 
1637
    lambda-list-keywords
 
1638
    lambda-parameters-limit
 
1639
    least-negative-double-float
 
1640
    least-negative-long-float
 
1641
    least-negative-normalized-double-float
 
1642
    least-negative-normalized-long-float
 
1643
    least-negative-normalized-short-float
 
1644
    least-negative-normalized-single-float
 
1645
    least-negative-short-float
 
1646
    least-negative-single-float
 
1647
    least-positive-double-float
 
1648
    least-positive-long-float
 
1649
    least-positive-normalized-double-float
 
1650
    least-positive-normalized-long-float
 
1651
    least-positive-normalized-short-float
 
1652
    least-positive-normalized-single-float
 
1653
    least-positive-short-float
 
1654
    least-positive-single-float
 
1655
    long-float-epsilon
 
1656
    long-float-negative-epsilon
 
1657
    most-negative-double-float
 
1658
    most-negative-fixnum
 
1659
    most-negative-long-float
 
1660
    most-negative-short-float
 
1661
    most-negative-single-float
 
1662
    most-positive-double-float
 
1663
    most-positive-fixnum
 
1664
    most-positive-long-float
 
1665
    most-positive-short-float
 
1666
    most-positive-single-float
 
1667
    multiple-values-limit
 
1668
    nil
 
1669
    pi
 
1670
    short-float-epsilon
 
1671
    short-float-negative-epsilon
 
1672
    single-float-epsilon
 
1673
    single-float-negative-epsilon
 
1674
    t
 
1675
    ))
 
1676
 
 
1677
(defparameter *cl-macro-symbols*
 
1678
  '(
 
1679
    and
 
1680
    assert
 
1681
    case
 
1682
    ccase
 
1683
    ecase
 
1684
    check-type
 
1685
    cond
 
1686
    declaim
 
1687
    defclass
 
1688
    defconstant
 
1689
    defgeneric
 
1690
    define-compiler-macro
 
1691
    define-condition
 
1692
    define-method-combination
 
1693
    define-modify-macro
 
1694
    define-setf-expander
 
1695
    define-symbol-macro
 
1696
    defmacro
 
1697
    defmethod
 
1698
    defpackage
 
1699
    defparameter
 
1700
    defvar
 
1701
    defsetf
 
1702
    defstruct
 
1703
    deftype
 
1704
    defun
 
1705
    destructuring-bind
 
1706
    do
 
1707
    do*
 
1708
    do-symbols
 
1709
    do-external-symbols
 
1710
    do-all-symbols
 
1711
    dolist
 
1712
    dotimes
 
1713
    formatter
 
1714
    cl:handler-bind
 
1715
    cl:handler-case
 
1716
    ignore-errors
 
1717
    in-package
 
1718
    incf
 
1719
    decf
 
1720
    lambda
 
1721
    loop
 
1722
    multiple-value-bind
 
1723
    multiple-value-list
 
1724
    multiple-value-setq
 
1725
    nth-value
 
1726
    or
 
1727
    pop
 
1728
    pprint-logical-block
 
1729
    print-unreadable-object
 
1730
    prog
 
1731
    prog*
 
1732
    prog1
 
1733
    prog2
 
1734
    psetq
 
1735
    push
 
1736
    pushnew
 
1737
    remf
 
1738
    restart-bind
 
1739
    restart-case
 
1740
    return
 
1741
    rotatef
 
1742
    setf
 
1743
    psetf
 
1744
    shiftf
 
1745
    step
 
1746
    time
 
1747
    trace
 
1748
    untrace
 
1749
    typecase
 
1750
    ctypecase
 
1751
    etypecase
 
1752
    when
 
1753
    unless
 
1754
    with-accessors
 
1755
    with-compilation-unit
 
1756
    with-condition-restarts
 
1757
    with-hash-table-iterator
 
1758
    with-input-from-string
 
1759
    with-open-file
 
1760
    with-open-stream
 
1761
    with-output-to-string
 
1762
    with-package-iterator
 
1763
    with-simple-restart
 
1764
    with-slots
 
1765
    with-standard-io-syntax
 
1766
    ))
 
1767
 
 
1768
(defparameter *cl-accessor-symbols*
 
1769
  '(
 
1770
    aref
 
1771
    bit
 
1772
    caaaar
 
1773
    caaadr
 
1774
    caaar
 
1775
    caadar
 
1776
    caaddr
 
1777
    caadr
 
1778
    caar
 
1779
    cadaar
 
1780
    cadadr
 
1781
    cadar
 
1782
    caddar
 
1783
    cadddr
 
1784
    caddr
 
1785
    cadr
 
1786
    car
 
1787
    cdaaar
 
1788
    cdaadr
 
1789
    cdaar
 
1790
    cdadar
 
1791
    cdaddr
 
1792
    cdadr
 
1793
    cdar
 
1794
    cddaar
 
1795
    cddadr
 
1796
    cddar
 
1797
    cdddar
 
1798
    cddddr
 
1799
    cdddr
 
1800
    cddr
 
1801
    cdr
 
1802
    char
 
1803
    compiler-macro-function
 
1804
    eighth
 
1805
    elt
 
1806
    fdefinition
 
1807
    fifth
 
1808
    fill-pointer
 
1809
    find-class
 
1810
    first
 
1811
    fourth
 
1812
    get
 
1813
    getf
 
1814
    gethash
 
1815
    ldb
 
1816
    logical-pathname-translations
 
1817
    macro-function
 
1818
    mask-field
 
1819
    ninth
 
1820
    nth
 
1821
    readtable-case
 
1822
    rest
 
1823
    row-major-aref
 
1824
    sbit
 
1825
    schar
 
1826
    second
 
1827
    seventh
 
1828
    sixth
 
1829
    subseq
 
1830
    svref
 
1831
    symbol-function
 
1832
    symbol-plist
 
1833
    symbol-value
 
1834
    tenth
 
1835
    third
 
1836
    values
 
1837
    ))
 
1838
 
 
1839
(defparameter *cl-condition-type-symbols*
 
1840
  '(
 
1841
    arithmetic-error
 
1842
    cell-error
 
1843
    condition
 
1844
    control-error
 
1845
    division-by-zero
 
1846
    end-of-file
 
1847
    error
 
1848
    file-error
 
1849
    floating-point-inexact
 
1850
    floating-point-invalid-operation
 
1851
    floating-point-overflow
 
1852
    floating-point-underflow
 
1853
    package-error
 
1854
    parse-error
 
1855
    print-not-readable
 
1856
    program-error
 
1857
    reader-error
 
1858
    serious-condition
 
1859
    simple-condition
 
1860
    simple-error
 
1861
    simple-type-error
 
1862
    simple-warning
 
1863
    storage-condition
 
1864
    stream-error
 
1865
    style-warning
 
1866
    type-error
 
1867
    unbound-slot
 
1868
    unbound-variable
 
1869
    undefined-function
 
1870
    warning
 
1871
    ))
 
1872
 
 
1873
(defparameter *cl-class-symbols*
 
1874
  '(standard-object structure-object))
 
1875
 
 
1876
(defparameter *cl-declaration-symbols*
 
1877
  '(
 
1878
    declaration
 
1879
    dynamic-extent
 
1880
    ftype
 
1881
    ignore
 
1882
    ignorable
 
1883
    inline
 
1884
    notinline
 
1885
    optimize
 
1886
    special
 
1887
    type))
 
1888
 
 
1889
(defparameter *cl-local-function-symbols*
 
1890
  '(call-next-method next-method-p))
 
1891
 
 
1892
(defparameter *cl-local-macro-symbols*
 
1893
  '(
 
1894
    call-method
 
1895
    make-method
 
1896
    loop-finish
 
1897
    pprint-exit-if-list-exhausted
 
1898
    pprint-pop
 
1899
    ))
 
1900
 
 
1901
(defparameter *cl-special-operator-symbols*
 
1902
  '(
 
1903
    block
 
1904
    catch
 
1905
    eval-when
 
1906
    flet
 
1907
    function
 
1908
    go
 
1909
    if
 
1910
    labels
 
1911
    let
 
1912
    let*
 
1913
    load-time-value
 
1914
    locally
 
1915
    macrolet
 
1916
    multiple-value-call
 
1917
    multiple-value-prog1
 
1918
    progn
 
1919
    progv
 
1920
    quote
 
1921
    return-from
 
1922
    setq
 
1923
    symbol-macrolet
 
1924
    tagbody
 
1925
    the
 
1926
    throw
 
1927
    unwind-protect
 
1928
))
 
1929
 
 
1930
(defparameter *cl-standard-generic-function-symbols*
 
1931
  '(
 
1932
    add-method
 
1933
    allocate-instance
 
1934
    change-class
 
1935
    class-name
 
1936
    compute-applicable-methods
 
1937
    describe-object
 
1938
    documentation
 
1939
    find-method
 
1940
    function-keywords
 
1941
    initialize-instance
 
1942
    make-instance
 
1943
    make-instances-obsolete
 
1944
    make-load-form
 
1945
    method-qualifiers
 
1946
    no-applicable-method
 
1947
    no-next-method
 
1948
    print-object
 
1949
    reinitialize-instance
 
1950
    remove-method
 
1951
    shared-initialize
 
1952
    slot-missing
 
1953
    slot-unbound
 
1954
    update-instance-for-different-class
 
1955
    update-instance-for-redefined-class
 
1956
    ))
 
1957
 
 
1958
(defparameter *cl-system-class-symbols*
 
1959
  '(
 
1960
    array
 
1961
    bit-vector
 
1962
    broadcast-stream
 
1963
    built-in-class
 
1964
    character
 
1965
    class
 
1966
    complex
 
1967
    concatenated-stream
 
1968
    cons
 
1969
    echo-stream
 
1970
    file-stream
 
1971
    float
 
1972
    function
 
1973
    generic-function
 
1974
    hash-table
 
1975
    integer
 
1976
    list
 
1977
    logical-pathname
 
1978
    method
 
1979
    method-combination
 
1980
    null
 
1981
    number
 
1982
    package
 
1983
    pathname
 
1984
    random-state
 
1985
    ratio
 
1986
    rational
 
1987
    readtable
 
1988
    real
 
1989
    restart
 
1990
    sequence
 
1991
    standard-class
 
1992
    standard-generic-function
 
1993
    standard-method
 
1994
    stream
 
1995
    string
 
1996
    string-stream
 
1997
    structure-class
 
1998
    symbol
 
1999
    synonym-stream
 
2000
    t
 
2001
    two-way-stream
 
2002
    vector
 
2003
    ))
 
2004
 
 
2005
(defparameter *cl-type-symbols*
 
2006
  '(
 
2007
    atom
 
2008
    base-char
 
2009
    base-string
 
2010
    bignum
 
2011
    bit
 
2012
    boolean
 
2013
    compiled-function
 
2014
    extended-char
 
2015
    fixnum
 
2016
    keyword
 
2017
    nil
 
2018
    short-float
 
2019
    single-float
 
2020
    double-float
 
2021
    long-float
 
2022
    signed-byte
 
2023
    simple-array
 
2024
    simple-base-string
 
2025
    simple-bit-vector
 
2026
    simple-string
 
2027
    simple-vector
 
2028
    standard-char
 
2029
    unsigned-byte
 
2030
    ))
 
2031
 
 
2032
(defparameter *cl-type-specifier-symbols*
 
2033
  '(
 
2034
    and
 
2035
    eql
 
2036
    member
 
2037
    mod
 
2038
    not
 
2039
    or
 
2040
    satisfies
 
2041
    values
 
2042
    ))
 
2043
 
 
2044
(defparameter *cl-restart-symbols*
 
2045
  '(
 
2046
    abort
 
2047
    continue
 
2048
    muffle-warning
 
2049
    store-value
 
2050
    use-value
 
2051
    ))
 
2052
 
 
2053
;;; Symbols that are names of types that are also classes
 
2054
;;; See figure 4-8 in section 4.3.7
 
2055
(defparameter *cl-types-that-are-classes-symbols*
 
2056
  '(
 
2057
    arithmetic-error
 
2058
    array
 
2059
    bit-vector
 
2060
    broadcast-stream
 
2061
    built-in-class
 
2062
    cell-error
 
2063
    character
 
2064
    class
 
2065
    complex
 
2066
    concatenated-stream
 
2067
    condition
 
2068
    cons
 
2069
    control-error
 
2070
    division-by-zero
 
2071
    echo-stream
 
2072
    end-of-file
 
2073
    error
 
2074
    file-error
 
2075
    file-stream
 
2076
    float
 
2077
    floating-point-inexact
 
2078
    floating-point-invalid-operation
 
2079
    floating-point-overflow
 
2080
    floating-point-underflow
 
2081
    function
 
2082
    generic-function
 
2083
    hash-table
 
2084
    integer
 
2085
    list
 
2086
    logical-pathname
 
2087
    method
 
2088
    method-combination
 
2089
    null
 
2090
    number
 
2091
    package
 
2092
    package-error
 
2093
    parse-error
 
2094
    pathname
 
2095
    print-not-readable
 
2096
    program-error
 
2097
    random-state
 
2098
    ratio
 
2099
    rational
 
2100
    reader-error
 
2101
    readtable
 
2102
    real
 
2103
    restart
 
2104
    sequence
 
2105
    serious-condition
 
2106
    simple-condition
 
2107
    simple-error
 
2108
    simple-type-error
 
2109
    simple-warning
 
2110
    standard-class
 
2111
    standard-generic-function
 
2112
    standard-method
 
2113
    standard-object
 
2114
    storage-condition
 
2115
    stream
 
2116
    stream-error
 
2117
    string
 
2118
    string-stream
 
2119
    structure-class
 
2120
    structure-object
 
2121
    style-warning
 
2122
    symbol
 
2123
    synonym-stream
 
2124
    t
 
2125
    two-way-stream
 
2126
    type-error
 
2127
    unbound-slot
 
2128
    unbound-variable
 
2129
    undefined-function
 
2130
    vector
 
2131
    warning
 
2132
    ))
 
2133
 
 
2134
(defparameter *cl-all-type-symbols*
 
2135
  (reduce #'union
 
2136
          (list *cl-type-symbols* *cl-types-that-are-classes-symbols*
 
2137
                *cl-system-class-symbols* *cl-class-symbols*
 
2138
                *cl-condition-type-symbols*)))
 
2139
 
 
2140
(defparameter *cl-non-function-macro-special-operator-symbols*
 
2141
  (set-difference
 
2142
   *cl-symbols*
 
2143
   (reduce #'union
 
2144
           (list *cl-function-symbols*
 
2145
                 *cl-macro-symbols*
 
2146
                 *cl-accessor-symbols*
 
2147
                 *cl-local-function-symbols*
 
2148
                 *cl-local-macro-symbols*
 
2149
                 *cl-special-operator-symbols*
 
2150
                 *cl-standard-generic-function-symbols*
 
2151
                 '(declare)))))
 
2152
 
 
2153
(defparameter *cl-function-or-accessor-symbols*
 
2154
  (append *cl-function-symbols* *cl-accessor-symbols*))
 
2155
 
 
2156
(defparameter *cl-non-variable-constant-symbols*
 
2157
  (set-difference
 
2158
   *cl-symbols*
 
2159
   (union *cl-variable-symbols*
 
2160
          *cl-constant-symbols*)))