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

Remove debug statements

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-03-23 22:17:27 +01:00
parent b62f153ed3
commit 7cf74b073b
2 changed files with 0 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/cmp/cmplet.lsp
View file

@ -48,9 +48,6 @@
(setf vars (nreverse vars) forms (nreverse forms))
(print vars)
(print args)
(mapc #'push-vars vars)
(check-vdecl vnames ts is)

1
src/cmp/cmputil.lsp
View file

@ -67,7 +67,6 @@
nil)
(defun handle-internal-error (c)
(print c)
(si::default-debugger c)
(unless (typep c 'compiler-error)
(signal 'compiler-internal-error