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

Added another debug statement.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-12-27 23:23:15 +01:00
parent d9f4d00c89
commit 5581002abe
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/new-cmp/cmputil.lsp
View file

@ -160,6 +160,7 @@
(apply #'format t args)))
(defun cmperr (string &rest args)
(apply #'error string args)
(let ((c (make-condition 'compiler-error
:format-control string
:format-arguments args)))