Code: Select all
((EQ (car L) OLD) (cons OLD (cons NEW (appendConst OLD NEW (cdr L)))))
Code: Select all
((EQ (car L) OLD) (cons OLD (cons NEW (appendConst OLD NEW (cdr L)))))
Code: Select all
? (probe-file "~/ccl-init.lisp")
#P"C:/Users/David Mullen/ccl-init.lisp"
Code: Select all
(defun required-parameters (function)
(loop for thing in (ccl:arglist function)
until (member thing lambda-list-keywords)
collect thing))