X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=doc%2Fcolorize-lisp-examples.lisp;h=a269c1d3f1631dd8bb78435148118a086faafac1;hb=ec9d532ae8c6b3a0a6ee1a7edf732fd1e67393ea;hp=ee428f38c667588a0a14cbd91c825ec8077727d1;hpb=a362544bd73df12b0585556b772fda143cccfa89;p=cl-gtk2.git diff --git a/doc/colorize-lisp-examples.lisp b/doc/colorize-lisp-examples.lisp index ee428f3..a269c1d 100644 --- a/doc/colorize-lisp-examples.lisp +++ b/doc/colorize-lisp-examples.lisp @@ -287,7 +287,7 @@ span.paren6:hover { color : inherit; background-color : #FFBAFF; } (if (> current-position (length string)) (return-from scan-string (progn - (format *trace-output* "Scan was called ~S times.~%" + #+nil(format *trace-output* "Scan was called ~S times.~%" *scan-calls*) (finish-current (length string) nil (constantly nil)) result)) @@ -1020,7 +1020,7 @@ preprocessing output in a @lisp block before passing to colorize." '("
" "")))) (cond (len - (format t "processing ~A~%" line) + #+nil(format t "processing ~A~%" line) (setq line-processor #'process-line-inside-pre) (write-string "" output) (push (subseq line (+ len +indent+)) piece-of-code) @@ -1036,6 +1036,7 @@ preprocessing output in a @lisp block before passing to colorize." :name :wild))) (let* ((name (namestring html-file)) (temp-name (strcat name ".temp"))) + (format t "processing ~A~%" name) (process-file name temp-name) (system "mv ~A ~A" temp-name name))))