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

When printing variables, also show the kind.

Browse source
This commit is contained in:
jjgarcia 2005-05-13 11:43:17 +00:00
parent 3e51fa08ba
commit 11befebb7d
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/cmp/cmputil.lsp
View file

@ -29,6 +29,9 @@
(format stream "#<a ~A: ~A>" (type-of ref-object) name)
(format stream "#<a ~A>" (type-of ref-object)))))
(defun print-var (var-object stream)
(format stream "#<a VAR: ~A KIND: ~A>" (var-name var-object) (var-kind var-object)))
(defun cmperr (string &rest args &aux (*print-case* :upcase))
(print-current-form)
(format t "~&;;; Error: ")