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

Remove debug statements in cmpffi.lsp

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-07-30 12:21:33 +02:00
parent 65364756d2
commit c762dea2e7
1 changed files with 0 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/cmpffi.lsp
View file

@ -317,8 +317,6 @@
loc-type loc-rep-type dest-type dest-rep-type))
(ensure-valid-object-type (a-lisp-type)
(when (subtypep `(AND ,loc-type ,a-lisp-type) NIL)
(print (list a-lisp-type loc-type loc-rep-type
dest-type dest-rep-type))
(coercion-error))))
(when (eq dest-rep-type loc-rep-type)
(wt loc)
@ -648,8 +646,6 @@
((< index (length coerced-arguments))
(wt (nth index coerced-arguments)))
(t
(print k)
(print index)
(cmperr "C-INLINE: Variable code exceeds number of arguments")))))
(otherwise
(write-char c *compiler-output1*))))))