Custom Query (1030 matches)

Calling WARN messes with the pretty-printer.

CL-USER> (lisp-implementation-version)
"Version 1.4-RC1-r13031  (LinuxX8632)"
CL-USER> (setq *print-pretty* t)
T

CL-USER> (format t "~@<COMPILE-FILE failed while performing ~A on ~A.~@:>"
                 "#<COMPILE-OP (:FORCE T) #x150A26AE>" 
                 "#<IRONCLAD-SOURCE-FILE \"ripemd-160\" #x14D18B46>")
COMPILE-FILE failed while performing #<COMPILE-OP (:FORCE T) #x150A26AE> on
#<IRONCLAD-SOURCE-FILE "ripemd-160" #x14D18B46>.
NIL

CL-USER> (warn "~@<COMPILE-FILE failed while performing ~A on ~A.~@:>"
              "#<COMPILE-OP (:FORCE T) #x150A26AE>"
               "#<IRONCLAD-SOURCE-FILE \"ripemd-160\" #x14D18B46>")
; Warning: COMPILE-FILE failed while performing
;                     #<COMPILE-OP (:FORCE T) #x150A26AE> on
;                     #<IRONCLAD-SOURCE-FILE "ripemd-160" #x14D18B46>.
; While executing: SWANK::EVAL-REGION, in process repl-thread(11).
NIL

As you can see, WARN somehow messes with pretty-printing.

This change <http://trac.clozure.com/ccl/changeset/10240> and the current script appears to have a bug. The clause for cygwin should set DD since CCL_DEFAULT_DIRECTORY is slammed <http://trac.clozure.com/ccl/browser/branches/win64/scripts/ccl64?rev=10240#L73> by DD moments later.

If there are multiple strings on one line, only the last is string-colored; the remainder are comment colored.

Ron Garret reports that this seems to fix it, but that undoubtedly interferes with other stuff that r13186 is trying to do.

(defun gui::set-temporary-character-attributes (layout pos start-line end-line)
...
               (let* ((attr (if (= istart 0)
                              (hemlock::lisp-info-begins-quoted parse-info)
                              (if t  ; (< last-end istart)                                                  <==
                                (hi:character-attribute :lisp-syntax
                                                        (hi::line-character line (1- istart)))
                                :comment)))