mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-12 07:50:26 -07:00
Code Issues Projects Releases Packages Wiki Activity

Remove debug statement.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-09-04 23:48:09 +02:00
parent 82b5a84391
commit a3785ea2a3
1 changed files with 0 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/cmp/cmpffi.lsp
View file

@ -337,7 +337,6 @@
coerced-arguments)
;; If the expression begins with @[0-9a-z]*, this means we are
;; saving some variables.
(print c-expression)
(when (and (> (length c-expression) 1)
(eq (char c-expression 0) #\@))
(do ((ndx 1 (1+ ndx)))