circopy gone (use dump)
cirequal gone
cirlist gone
cirnequal gone
cirprin gone
cirprinflush gone
cirprint gone
class-tree break loop (ct)
compute-slot-description-reader-method-function compute-slot-reader-method-function
compute-slot-description-writer-method-function compute-slot-writer-method-function
control-file-pathname gone
csend use generic function
curread gone
eof end-of-stream, <end-of-stream>
eol end-of-line, <end-of-line>
evector-add-element gone
evector-element-p gone
evector-length gone
evector-ref gone
evector-remove-element gone
evloop-add-input ?
evloop-add-output ?
evloop-allow-tty-input ?
evloop-disallow-tty-input ?
evloop-init ?
evloop-initialized-p ?
evloop-input-managed-p ?
evloop-readp ?
evloop-remove-input ?
evloop-restart ?
evloop-select ?
evloop-set-error-function ?
evloop-set-flush-function ?
evloop-set-manage-function ?
evloop-set-timeout ?
evloop-set-timeout-handler ?
evloop-stop ?
evloop-wait ?
executablep (program-unit-field pu 'type)
field-list (mapcar #'slot-name (class-slots ...))
file-namestring (string <filename>)
find-program-unit-databases gone
flush-program-unit-cache gone
get-all-messages gone
get-message (string <message>), message
get-message-p gone
get-setf-method gone
inspect-slot gone
libraryp (program-unit-field pu 'type)
make-evector gone
makunbound gone
map-evector gone
message-languages gone
modified-program-units ?
modulep (program-unit-field pu 'type)
namestring (string <filename>)
next-method-p gone
non-profilable-functions gone
nsubst gone
object-row-p gone
pretty (pprin (getdef fn))
prettyf (pprin (getdef fn) stream)
program-unit-database-add-all-program-units gone
program-unit-database-add-all-program-units-in-path gone
program-unit-database-export-query gone
program-unit-database-export-query-item-export-name gone
program-unit-database-export-query-item-export-type gone
program-unit-database-export-query-item-program-unit gone
program-unit-database-export-query-item-program-unit-type gone
program-unit-database-p (program-unit-field pu 'type)
program-unit-database-query-item-program-unit-database gone
program-unit-database-remove-program-unit workspace-remove-program-unit
ptype gone
remfn gone
remove-language gone
remove-message gone
remove-program-unit gone
remove-setf-method gone
resetfn (setf symbol-function)
setdefmodule (setf program-unit-field)
setfn (setf symbol-function)
syserror <error> condition
teread gone
trace-all-functions gone
transitive-closure gone
xvxvi-convert-module gone
xvxvi-convert-project gone
xvxvi-generate-module-database gone
xvxvi-generate-project-databases gone
member use (member x #'equal)
nth use lref, beware end of list
1+ use (+ x 1)
1- use (- x 1)
1/ use (/ 1 x)
<?> use < or >
abbrevp gone: no more abbrev
acons use (cons (cons k v) al), or better: use hash-table
acos use (facos (float x))
add-feature gone: no more dynamic feature
addprop use (setf (htref...))
address-high-half gone: use (logand 0xffff (address-low (>> a 16)))
address-low-half gone: use (logand 0xffff (address-low a 16))
adjoin gone: use hsset on hash-set
any use for, block, and return
ascii (symbol () (make-string 1 char))
asciip gone
aset use (setf (aref...))
asin use (fasin (float x))
assoc use (assoc k al #'equal)
atan use (fatan (float x))
atom use (not (consp x))
atomp use (not (consp x))
cascii use symbolp, numberp, stringp, symbol, sref, sprin
cassoc use (cdr (assoc k al #'equal))
cassq use (cdr (assoc k al))
channel use the stream system
chrset use (setf (sref s i) c)
close use fclose on streams
clrhash use htclear, ptclear or hsclear
combine-pathnames use merge-filenames
comline-status use system
concat use (symbol () (catenate (id-name ...)))
copy-pathname use copy on filename
core-init-std gone
cos use (fcos (float x))
current-directory use getcwd or (setf (getcwd) f)
current-language use current-languages
date use localtime
dechash use (decf (htref/ptref ...))
delete use (remove v l #'equal)
deposit-byte use i>> and i<<
deposit-field use i>> and i<<
differ use (- a (- b c))
difference use (- a (- b c))
directoryp use file-type
displace use (setf (car...)) and (setf (cdr ...))
duplstring use catenate
edlin use emacs talk-mode
edlinend use emacs talk-mode
enough-namestring gone
eqvector use for, block, and return
err use with-handler
evenp use (eq 0 (% n 2))
every use for, block, and return
exp use (fexp (float x))
expand-pathname gone: use in-directory
explode use (let ((s (sprin x))) (collecting (for ((c in s)) (collect c))))
featurep gone: no more dynamic feature
fillstring gone: use for
fillvector gone: use for
findfn gone: use generic functions
firstn gone: use collecting
format use printf
get use hash-table with arity=2
get-abbrev gone: no more abbrev
getfn gone: use generic function
getfn1 gone: use generic function
gethash use htref/ptref/hsref
getl gone: use hash-table with arity=2
getprop use (htref...)
getsymb gone: use symbol or generic-function
getsymb1 gone: use symbol or generic-function
has-an-abbrev gone: no more abbrev
hash gone, hash on symbol or id-name
hash-table-count use (let ((x 0)) (for ((v in-hash-table: ht)) (ignore v) (incf x)) x)
hash-table-p use hash-table-p or pattern-table-p or hash-set-p
highlow-address use (ptr-address (make-ptr h l))
host-namestring gone, not posix
ibase gone, use syntax (15 = 0xF = 017)
implode use (let ((s (make-string #\x (llen chars)))) (for (((i char) in chars)) (setf (sref s i) char)) (sread s))
in-read-prompt gone, use stream-prompt only
inbuf use internal.stream-input-buffer
inchan use (stdin) or pass current-stream
inchash use (incf (htref/ptref...))
initty gone: no more tty management
inmax use internal.stream-input-buffer-size
inpos use internal.stream-input-buffer-position
input use (withf (((stdin) (fopen f 'r))) ...) or better use a stream and leav e stdin unchanged
integerp use (= x (integer x))
itsoft gone: use signal and conditions
kwote gone: use `',x
last use (let ((l x)) (repeat (i- (llen l) 1) (popf l)) l)
lastn use (let ((l x)) (repeat (i- (llen l) n) (popf l)) l)
list-features gone: no more dynamic feature
lmargin use stream-rigth-margin
log use (flog (float x))
log10 use (/ (flog (float x)) (flog 10.))
make-hash-table use new hash-table or pattern-table or hash-set
make-hash-table-eq use make-hash-table
make-hash-table-eqn use make-hash-table
make-hash-table-eqstring use make-hash-table and hash on symbol or id-name
make-hash-table-equal use make-pattern-table
map gone: use (for ((s on l))...)
map-multiple gone: use (for ((i in-multiple args))...)
mapc gone: use (for ((s in l))...)
mapcan gone: use (collecting (for ((s in l)) (collect-nappend (copy-list...))))
mapcar gone: use (collecting (for ((s in l)) (collect...)))
mapcon gone: use (collecting (for ((s in l)) (collect-nappend...)))
maphash use in-hash-table:/in-pattern-table:/in-hash-set:
mapl gone: use (for ((s on l))...)
maplist gone: use (collecting (for ((sl on l)) (collect...)))
mapvector gone: use (for ((e in-vector v))...)
merge-pathnames use merge-filenames
minusp use (< x 0)
neq use (not (eq x y))
nequal use (not (equal x y))
nintersection use lintersetion, which conses
nlistp use (not (listp x))
nreconc gone
nset-difference use ldifference, which conses
nset-exclusive-or gone
nthcdr use (let ((l x)) (repeat n (when (consp l) (popf l))) l)
nunion use lunion, which conses
obase gone, use syntax (15 = 0xF = 017), ie with (printf "0x%lx" n)
oddp use (not (eq 0 (% n 2)))
ogetq use Icos
omakeq use Icos
omatchq use Icos
opena use (fopen f 'a)
openab use (fopen f 'a)
openi use (fopen f 'r)
openib use (fopen f 'r)
openo use (fopen f 'w)
openob use (fopen f 'w)
oputq use Icos
outbuf use internal.stream-output-buffer
outchan use (stdin) or pass current-stream
outpos use internal.stream-output-buffer-position
output use (withf (((stdout) (fopen f 'w))) ...) or better use a stream and leav e stdout unchanged
pairlis gone
pathname use filename
pathname-directory use directory, which returns a filename
pathname-host gone
pathname-name use (basename f (extension f))
pathname-type use extension, which returns "." too
pathname-version gone
peekch use peek-next-char
placdl use collect and collect-nappend
plist use hash-table
plusp use (>= x 0)
portable-pathname-p gone: rely on posix
posq gone: use (block foo (for (((i e) in: l)) (when (eq e x) (return-from foo i))))
power use (isqrt x) or (fpow x .5)
prin changed: stream opt 2nd arg
prin-object changed: stream 2nd arg
princh use prin-char
princn use prin-char (stream opt 2nd arg)
prinf use printf
prinflush use flush
print changed: stream opt 2nd arg
print-to-string use (sprin x), if print-for-read was set
printlength use stream-max-characters
printlevel use stream-max-levels
printline use stream-max-characters
probefile use (access f 'F_OK)
probepath use (which x ())
probepathc use (which x 'c)
probepathf use (which x 't)
probepathm use (which x 'td)
probepatho use (which x 'o)
prompt use stream-prompt
symbolp changed: () is no longer a symbol
put-abbrev gone: no more abbrev
puthash setf htref/ptref/hsset/hsrem
putprop use (setf (htref...))
quo use (integer (/ (integer x) (integer y)))
quomod gone use i% and i/
quotient use (integer (/ (integer x) (integer y)))
rassoc gone: use two pattern-tables
rassq gone: use two hash-tables
read changed: stream oriented
read-delimited-list gone
readable-file-p use (access f 'R_OK)
readch use read-char (stream oriented)
readline use (collecting (for ((c in-string (read-line))) (collect (symbol () (make-string c 1)))))
readfile use (system (catenate "cat " (string f)))
redisplayscreen gone: no more virtty
rem-abbrev gone: no more abbrev
rem-feature gone: no more dynamic feature
remhash use htrem/ptrem/hsrem
remove use (remove x l #'equal)
remprop use htrem
reread gone
rmargin use stream-right-margin
round changed
rplac use (setf(car c)car)(setf(cdr c)cdr)
rplaca use (setf(car c)car)
rplacd use (setf(cdr c)cdr)
scale use (* (/ a b) c), the bigint will save you
search-in-path use for and merge-filename
send use generic funtion
send-error use condition
send-super use condition
sendf use generic function
sendfq use generic function
sendq use generic function
set-equal use (not (lintersection l1 l2))
set-exclusive-or use (intersection (union l1 l2) (intersection l1 l2))
sin use (fsin (float x))
sortl use (sort l #'(lambda (a b) (string<= (string a) (string b))))
sortn use (sort l #'<=)
sortp gone
sqrt use isqrt
sset use (setf (sref s i) c)
sublis gone
subsetp use (not (ldifference l1 l2))
subst gone
swapf gone
tailp use for and on
tclass-namep use Icos
temporary-file-pathname use tmpnam, with no arg
the-function use symbolp and symbol-function
time use timeq
true-pathname gone
tyattrib gone: no more virtty
tyback gone: no more virtty
tybeep gone: no more virtty
tybs gone: no more virtty
tycleol gone: no more virtty
tycleos gone: no more virtty
tycls gone: no more virtty
tycn gone: no more virtty
tyco gone: no more virtty
tycot gone: no more virtty
tycr gone: no more virtty
tycursor gone: no more virtty
tydelch gone: no more virtty
tydelcn gone: no more virtty
tydelln gone: no more virtty
tydownkey gone: no more virtty
tyepilogue gone: no more virtty
tyerror gone: no more virtty
tyflush gone: no more virtty
tyi use read-char
tyinsch gone: no more virtty
tyinscn gone: no more virtty
tyinsln gone: no more virtty
tyinstring gone: no more virtty
tyleftkey gone: no more virtty
tynewline gone: no more virtty
tyo gone: no more virtty
tyod gone: no more virtty
typech gone: reader no longer configurable
typecn gone: reader no longer configurable
typrologue gone: no more virtty
tyrightkey gone: no more virtty
tys gone: no more virtty
tyshowcursor gone: no more virtty
tystring gone: no more virtty
tyupkey gone: no more virtty
tyxmax gone: no more virtty
tyymax gone: no more virtty
user-gc-count gone: see gcinfo
user-homedir-pathname use (getenv "HOME")
vset use (setf (vref v i)...)
writable-file-p use (access f 'w)
xcons use (let ((cdr e1) (car e2)) (cons car cdr))
zero use (lambda (&multiple args)(ignore args) 0)
zerop use (= 0 x)
eof-read				use read
error-output-channel			use stderr
getdefmodule				use program-unit-field
inspect-object				use visit-object
libload					use load-file
libloadfile				use load-file
load					use load-file
load-byte				use ior
load-byte-test				use iand
loadfile				use load-file
make-class				use make-instance
make-pathname				use make-filename
map-expand-pathname			use in-directory
mapcoblist				use map-symbols
maploblist				use map-symbols
mask-field				use iand
new					use make-instance
oblist					use map-symbols
pprint					use pprin
pratom					use prin
printdefmodule				use write-program-unit-description-file
printerror				use warn
put-message				use defmessage
readdefmodule				use program-unit-field
record-language				use deflanguage
renamefile				use rename
stratom					use sprin
subtypep				use subclassp or defpredicate
super-itsoft				use call-next-handler
synonym					use defsynonym or (setf (symbol-function'newf) (symbol-function 'oldf))
synonymq				use defsynonym
testfn					use test-program-unit
typefn					use type-of
typep					use subclassp or defpredicate
valfn					use (if (fboundp sym) (symbol-value sym) #'my-undef)
variablep				use symbolp
append1					use (append l (list x))
make-pointer-row			use .make-ptr-row, and pass clan
pointer-row-set				use setf on internal.ptr-row-ref
set-slot-value				use setf on slot-value
