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

When printing out lambda expressions, use *PRINT-READABLY* nil

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-01-02 22:54:27 +01:00
parent 5d7410bf51
commit 905b8c4aab
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/lsp/top.lsp
View file

@ -1084,6 +1084,7 @@ Use special code 0 to cancel this operation.")
((< i base))
(when (ihs-visible i)
(let ((*print-case* (if (= i *ihs-current*) :UPCASE :DOWNCASE))
(*print-readably* nil)
(func-name (ihs-fname i)))
;;(format t "~:[~; >~] ~S" b (ihs-fname i)) ;; JCB
(format t " > ~S" func-name)
@ -1111,6 +1112,7 @@ Use special code 0 to cancel this operation.")
)
(when (or (ihs-visible i) (eq t n))
(let ((*print-case* (if (= i *ihs-current*) :UPCASE :DOWNCASE))
(*print-readably* nil)
(func-name (ihs-fname i)))
;;(format t "~:[~; >~] ~S" b (ihs-fname i)) ;; JCB
(format t " > ~S" (ihs-fname i))
@ -1149,7 +1151,8 @@ Use special code 0 to cancel this operation.")
(tpl-print-current)))
(defun tpl-print-current ()
(let ((name (ihs-fname *ihs-current*)))
(let ((*print-readably* nil)
(name (ihs-fname *ihs-current*)))
(format t "~&Broken at ~:@(~S~)." name)
(when (eq name 'si::bytecodes)
(format t " [Evaluation of: ~S]"