[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Gcl-devel] Missing symbols in ansi compatibility mode
From: |
Vadim V. Zhytnikov |
Subject: |
Re: [Gcl-devel] Missing symbols in ansi compatibility mode |
Date: |
Thu, 08 Aug 2002 22:44:33 +0300 |
User-agent: |
Mozilla/5.0 (Windows; U; Windows NT 5.1; ru-RU; rv:1.0.0) Gecko/20020526 |
Paul F. Dietz ?????:
The following 107 symbols are not exported from the COMMON-LISP
package when gcl is configured in ansi compatibility mode:
*COMPILE-FILE-PATHNAME*
*COMPILE-FILE-TRUENAME*
*COMPILE-PRINT*
*COMPILE-VERBOSE*
*GENSYM-COUNTER*
*LOAD-PATHNAME*
*LOAD-PRINT*
*LOAD-TRUENAME*
*PRINT-LINES*
*PRINT-MISER-WIDTH*
*PRINT-PPRINT-DISPATCH*
*PRINT-READABLY*
*PRINT-RIGHT-MARGIN*
*READ-EVAL*
BASE-CHAR
BASE-STRING
BOOLEAN
BROADCAST-STREAM
BROADCAST-STREAM-STREAMS
CELL-ERROR-NAME
CLASS
COMPILE-FILE-PATHNAME
COMPILER-MACRO
COMPILER-MACRO-FUNCTION
COMPLEMENT
CONCATENATED-STREAM
CONCATENATED-STREAM-STREAMS
CONSTANTLY
COPY-PPRINT-DISPATCH
COPY-STRUCTURE
DEBUG
DEFINE-COMPILER-MACRO
DEFINE-SETF-EXPANDER
DEFINE-SYMBOL-MACRO
DEFPACKAGE
DELETE-PACKAGE
DESCRIBE-OBJECT
DYNAMIC-EXTENT
ECHO-STREAM
ECHO-STREAM-INPUT-STREAM
ECHO-STREAM-OUTPUT-STREAM
ENSURE-DIRECTORIES-EXIST
EXTENDED-CHAR
FDEFINITION
FILE-STREAM
FILE-STRING-LENGTH
FLOATING-POINT-INEXACT
FLOATING-POINT-INVALID-OPERATION
FORMATTER
FUNCTION-LAMBDA-EXPRESSION
GET-SETF-EXPANSION
HASH-TABLE-REHASH-SIZE
HASH-TABLE-REHASH-THRESHOLD
IGNORABLE
INTERACTIVE-STREAM-P
LOAD-LOGICAL-PATHNAME-TRANSLATIONS
LOAD-TIME-VALUE
LOGICAL-PATHNAME
LOGICAL-PATHNAME-TRANSLATIONS
MAKE-LOAD-FORM
MAKE-LOAD-FORM-SAVING-SLOTS
MAKE-METHOD
NTH-VALUE
OPEN-STREAM-P
PARSE-ERROR
PATHNAME-MATCH-P
PPRINT-DISPATCH
PPRINT-EXIT-IF-LIST-EXHAUSTED
PPRINT-FILL
PPRINT-INDENT
PPRINT-LINEAR
PPRINT-LOGICAL-BLOCK
PPRINT-NEWLINE
PPRINT-POP
PPRINT-TAB
PPRINT-TABULAR
PRINT-NOT-READABLE
PRINT-NOT-READABLE-OBJECT
PRINT-UNREADABLE-OBJECT
READ-SEQUENCE
READER-ERROR
READTABLE-CASE
ROW-MAJOR-AREF
SET-PPRINT-DISPATCH
SIMPLE-BASE-STRING
SIMPLE-CONDITION-FORMAT-CONTROL
STREAM-EXTERNAL-FORMAT
STRING-STREAM
STRUCTURE-OBJECT
STYLE-WARNING
SYNONYM-STREAM
SYNONYM-STREAM-SYMBOL
TRANSLATE-LOGICAL-PATHNAME
TRANSLATE-PATHNAME
TWO-WAY-STREAM
TWO-WAY-STREAM-INPUT-STREAM
TWO-WAY-STREAM-OUTPUT-STREAM
UNBOUND-SLOT
UNBOUND-SLOT-INSTANCE
UPGRADED-ARRAY-ELEMENT-TYPE
UPGRADED-COMPLEX-PART-TYPE
WILD-PATHNAME-P
WITH-COMPILATION-UNIT
WITH-CONDITION-RESTARTS
WITH-PACKAGE-ITERATOR
WITH-STANDARD-IO-SYNTAX
WRITE-SEQUENCE
Paul
_______________________________________________
Gcl-devel mailing list
address@hidden
http://mail.gnu.org/mailman/listinfo/gcl-devel
Yes, currently this 107 are missing in GCL's COMMON-LISP package
and more than 120 symbols must not be present there.
I've attached little script which lists all such troublesome
symbols. This just indicates how far is GCL in it present
state is from ANSI CL. Actually situation is even worse
since many symbols (functions) which seems to be OK actually
work not as expected by ANSI standard.
Best wishes,
--
Vadim V. Zhytnikov
<address@hidden>
<address@hidden>
<address@hidden>
<address@hidden>
(setq *cl* '(
&allow-other-keys *print-miser-width*
&aux *print-pprint-dispatch*
&body *print-pretty*
&environment *print-radix*
&key *print-readably*
&optional *print-right-margin*
&rest *query-io*
&whole *random-state*
* *read-base*
** *read-default-float-format*
*** *read-eval*
*break-on-signals* *read-suppress*
*compile-file-pathname* *readtable*
*compile-file-truename* *standard-input*
*compile-print* *standard-output*
*compile-verbose* *terminal-io*
*debug-io* *trace-output*
*debugger-hook* +
*default-pathname-defaults* ++
*error-output* +++
*features* -
*gensym-counter* /
*load-pathname* //
*load-print* ///
*load-truename* /=
*load-verbose* 1+
*macroexpand-hook* 1-
*modules* <
*package* <=
*print-array* =
*print-base* >
*print-case* >=
*print-circle* abort
*print-escape* abs
*print-gensym* acons
*print-length* acos
*print-level* acosh
*print-lines* add-method
adjoin atom boundp
adjust-array base-char break
adjustable-array-p base-string broadcast-stream
allocate-instance bignum broadcast-stream-streams
alpha-char-p bit built-in-class
alphanumericp bit-and butlast
and bit-andc1 byte
append bit-andc2 byte-position
apply bit-eqv byte-size
apropos bit-ior caaaar
apropos-list bit-nand caaadr
aref bit-nor caaar
arithmetic-error bit-not caadar
arithmetic-error-operands bit-orc1 caaddr
arithmetic-error-operation bit-orc2 caadr
array bit-vector caar
array-dimension bit-vector-p cadaar
array-dimension-limit bit-xor cadadr
array-dimensions block cadar
array-displacement boole caddar
array-element-type boole-1 cadddr
array-has-fill-pointer-p boole-2 caddr
array-in-bounds-p boole-and cadr
array-rank boole-andc1 call-arguments-limit
array-rank-limit boole-andc2 call-method
array-row-major-index boole-c1 call-next-method
array-total-size boole-c2 car
array-total-size-limit boole-clr case
arrayp boole-eqv catch
ash boole-ior ccase
asin boole-nand cdaaar
asinh boole-nor cdaadr
assert boole-orc1 cdaar
assoc boole-orc2 cdadar
assoc-if boole-set cdaddr
assoc-if-not boole-xor cdadr
atan boolean cdar
atanh both-case-p cddaar
cddadr clear-input copy-tree
cddar clear-output cos
cdddar close cosh
cddddr clrhash count
cdddr code-char count-if
cddr coerce count-if-not
cdr compilation-speed ctypecase
ceiling compile debug
cell-error compile-file decf
cell-error-name compile-file-pathname declaim
cerror compiled-function declaration
change-class compiled-function-p declare
char compiler-macro decode-float
char-code compiler-macro-function decode-universal-time
char-code-limit complement defclass
char-downcase complex defconstant
char-equal complexp defgeneric
char-greaterp compute-applicable-methods define-compiler-macro
char-int compute-restarts define-condition
char-lessp concatenate define-method-combination
char-name concatenated-stream define-modify-macro
char-not-equal concatenated-stream-streams define-setf-expander
char-not-greaterp cond define-symbol-macro
char-not-lessp condition defmacro
char-upcase conjugate defmethod
char/= cons defpackage
char< consp defparameter
char<= constantly defsetf
char= constantp defstruct
char> continue deftype
char>= control-error defun
character copy-alist defvar
characterp copy-list delete
check-type copy-pprint-dispatch delete-duplicates
cis copy-readtable delete-file
class copy-seq delete-if
class-name copy-structure delete-if-not
class-of copy-symbol delete-package
denominator eq
deposit-field eql
describe equal
describe-object equalp
destructuring-bind error
digit-char etypecase
digit-char-p eval
directory eval-when
directory-namestring evenp
disassemble every
division-by-zero exp
do export
do* expt
do-all-symbols extended-char
do-external-symbols fboundp
do-symbols fceiling
documentation fdefinition
dolist ffloor
dotimes fifth
double-float file-author
double-float-epsilon file-error
double-float-negative-epsilon file-error-pathname
dpb file-length
dribble file-namestring
dynamic-extent file-position
ecase file-stream
echo-stream file-string-length
echo-stream-input-stream file-write-date
echo-stream-output-stream fill
ed fill-pointer
eighth find
elt find-all-symbols
encode-universal-time find-class
end-of-file find-if
endp find-if-not
enough-namestring find-method
ensure-directories-exist find-package
ensure-generic-function find-restart
find-symbol get-internal-run-time
finish-output get-macro-character
first get-output-stream-string
fixnum get-properties
flet get-setf-expansion
float get-universal-time
float-digits getf
float-precision gethash
float-radix go
float-sign graphic-char-p
floating-point-inexact handler-bind
floating-point-invalid-operation handler-case
floating-point-overflow hash-table
floating-point-underflow hash-table-count
floatp hash-table-p
floor hash-table-rehash-size
fmakunbound hash-table-rehash-threshold
force-output hash-table-size
format hash-table-test
formatter host-namestring
fourth identity
fresh-line if
fround ignorable
ftruncate ignore
ftype ignore-errors
funcall imagpart
function import
function-keywords in-package
function-lambda-expression incf
functionp initialize-instance
gcd inline
generic-function input-stream-p
gensym inspect
gentemp integer
get integer-decode-float
get-decoded-time integer-length
get-dispatch-macro-character integerp
get-internal-real-time interactive-stream-p
intern lisp-implementation-type
internal-time-units-per-second lisp-implementation-version
intersection list
invalid-method-error list*
invoke-debugger list-all-packages
invoke-restart list-length
invoke-restart-interactively listen
isqrt listp
keyword load
keywordp load-logical-pathname-translations
labels load-time-value
lambda locally
lambda-list-keywords log
lambda-parameters-limit logand
last logandc1
lcm logandc2
ldb logbitp
ldb-test logcount
ldiff logeqv
least-negative-double-float logical-pathname
least-negative-long-float logical-pathname-translations
least-negative-normalized-double-float logior
least-negative-normalized-long-float lognand
least-negative-normalized-short-float lognor
least-negative-normalized-single-float lognot
least-negative-short-float logorc1
least-negative-single-float logorc2
least-positive-double-float logtest
least-positive-long-float logxor
least-positive-normalized-double-float long-float
least-positive-normalized-long-float long-float-epsilon
least-positive-normalized-short-float long-float-negative-epsilon
least-positive-normalized-single-float long-site-name
least-positive-short-float loop
least-positive-single-float loop-finish
length lower-case-p
let machine-instance
let* machine-type
machine-version mask-field
macro-function max
macroexpand member
macroexpand-1 member-if
macrolet member-if-not
make-array merge
make-broadcast-stream merge-pathnames
make-concatenated-stream method
make-condition method-combination
make-dispatch-macro-character method-combination-error
make-echo-stream method-qualifiers
make-hash-table min
make-instance minusp
make-instances-obsolete mismatch
make-list mod
make-load-form most-negative-double-float
make-load-form-saving-slots most-negative-fixnum
make-method most-negative-long-float
make-package most-negative-short-float
make-pathname most-negative-single-float
make-random-state most-positive-double-float
make-sequence most-positive-fixnum
make-string most-positive-long-float
make-string-input-stream most-positive-short-float
make-string-output-stream most-positive-single-float
make-symbol muffle-warning
make-synonym-stream multiple-value-bind
make-two-way-stream multiple-value-call
makunbound multiple-value-list
map multiple-value-prog1
map-into multiple-value-setq
mapc multiple-values-limit
mapcan name-char
mapcar namestring
mapcon nbutlast
maphash nconc
mapl next-method-p
maplist nil
nintersection package-error
ninth package-error-package
no-applicable-method package-name
no-next-method package-nicknames
not package-shadowing-symbols
notany package-use-list
notevery package-used-by-list
notinline packagep
nreconc pairlis
nreverse parse-error
nset-difference parse-integer
nset-exclusive-or parse-namestring
nstring-capitalize pathname
nstring-downcase pathname-device
nstring-upcase pathname-directory
nsublis pathname-host
nsubst pathname-match-p
nsubst-if pathname-name
nsubst-if-not pathname-type
nsubstitute pathname-version
nsubstitute-if pathnamep
nsubstitute-if-not peek-char
nth phase
nth-value pi
nthcdr plusp
null pop
number position
numberp position-if
numerator position-if-not
nunion pprint
oddp pprint-dispatch
open pprint-exit-if-list-exhausted
open-stream-p pprint-fill
optimize pprint-indent
or pprint-linear
otherwise pprint-logical-block
output-stream-p pprint-newline
package pprint-pop
pprint-tab read-char
pprint-tabular read-char-no-hang
prin1 read-delimited-list
prin1-to-string read-from-string
princ read-line
princ-to-string read-preserving-whitespace
print read-sequence
print-not-readable reader-error
print-not-readable-object readtable
print-object readtable-case
print-unreadable-object readtablep
probe-file real
proclaim realp
prog realpart
prog* reduce
prog1 reinitialize-instance
prog2 rem
progn remf
program-error remhash
progv remove
provide remove-duplicates
psetf remove-if
psetq remove-if-not
push remove-method
pushnew remprop
quote rename-file
random rename-package
random-state replace
random-state-p require
rassoc rest
rassoc-if restart
rassoc-if-not restart-bind
ratio restart-case
rational restart-name
rationalize return
rationalp return-from
read revappend
read-byte reverse
room simple-bit-vector
rotatef simple-bit-vector-p
round simple-condition
row-major-aref simple-condition-format-arguments
rplaca simple-condition-format-control
rplacd simple-error
safety simple-string
satisfies simple-string-p
sbit simple-type-error
scale-float simple-vector
schar simple-vector-p
search simple-warning
second sin
sequence single-float
serious-condition single-float-epsilon
set single-float-negative-epsilon
set-difference sinh
set-dispatch-macro-character sixth
set-exclusive-or sleep
set-macro-character slot-boundp
set-pprint-dispatch slot-exists-p
set-syntax-from-char slot-makunbound
setf slot-missing
setq slot-unbound
seventh slot-value
shadow software-type
shadowing-import software-version
shared-initialize some
shiftf sort
short-float space
short-float-epsilon special
short-float-negative-epsilon special-operator-p
short-site-name speed
signal sqrt
signed-byte stable-sort
signum standard
simple-array standard-char
simple-base-string standard-char-p
standard-class sublis
standard-generic-function subseq
standard-method subsetp
standard-object subst
step subst-if
storage-condition subst-if-not
store-value substitute
stream substitute-if
stream-element-type substitute-if-not
stream-error subtypep
stream-error-stream svref
stream-external-format sxhash
streamp symbol
string symbol-function
string-capitalize symbol-macrolet
string-downcase symbol-name
string-equal symbol-package
string-greaterp symbol-plist
string-left-trim symbol-value
string-lessp symbolp
string-not-equal synonym-stream
string-not-greaterp synonym-stream-symbol
string-not-lessp t
string-right-trim tagbody
string-stream tailp
string-trim tan
string-upcase tanh
string/= tenth
string< terpri
string<= the
string= third
string> throw
string>= time
stringp trace
structure translate-logical-pathname
structure-class translate-pathname
structure-object tree-equal
style-warning truename
truncate values-list
two-way-stream variable
two-way-stream-input-stream vector
two-way-stream-output-stream vector-pop
type vector-push
type-error vector-push-extend
type-error-datum vectorp
type-error-expected-type warn
type-of warning
typecase when
typep wild-pathname-p
unbound-slot with-accessors
unbound-slot-instance with-compilation-unit
unbound-variable with-condition-restarts
undefined-function with-hash-table-iterator
unexport with-input-from-string
unintern with-open-file
union with-open-stream
unless with-output-to-string
unread-char with-package-iterator
unsigned-byte with-simple-restart
untrace with-slots
unuse-package with-standard-io-syntax
unwind-protect write
update-instance-for-different-class write-byte
update-instance-for-redefined-class write-char
upgraded-array-element-type write-line
upgraded-complex-part-type write-sequence
upper-case-p write-string
use-package write-to-string
use-value y-or-n-p
user-homedir-pathname yes-or-no-p
values zerop
))
(setq *cl-m* nil)
(setq *cl-e* nil)
(setq *gcl* nil)
(do-external-symbols (s "COMMON-LISP")
(if (not(member s *cl*)) (push s *cl-e*))
(push s *gcl*)
)
(loop for s in *cl* do
(if (not(member s *gcl*)) (push s *cl-m*))
)
(terpri)
(princ (format nil "~s excessive symbols in COMMON-LISP package are listed in
*cl-e*" (length *cl-e*)))
(princ (format nil "~s symbols which are missing in COMMON-LISP package are
listed in *cl-m*" (length *cl-m*)))