mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-13 04:42:13 -08:00
Code Issues Projects Releases Packages Wiki Activity

Remove debug statement

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-07-13 23:49:26 +02:00
parent 55eeb0e955
commit bfb6e2cef7
1 changed files with 0 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/cmp/cmptype.lsp
View file

@ -226,7 +226,6 @@
(eq i2 '&rest) (eq i2 '&optional))
(nreverse output)
nil))
(print (list i1 i2 t1 t2 phase1 phase2 phase3 output))
(cond ((eq i1 '&optional)
(when phase1 (type-error t1-orig))
(setf phase1 '&optional)