Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/tmp/cvs-serv10256 Modified Files: coloring-types.lisp Added Files: clhs-lookup.lisp Log Message: Fix CLHS lookup Date: Tue Jun 1 06:41:27 2004 Author: bmastenbrook Index: lisppaste2/coloring-types.lisp diff -u lisppaste2/coloring-types.lisp:1.1 lisppaste2/coloring-types.lisp:1.2 --- lisppaste2/coloring-types.lisp:1.1 Tue Jun 1 06:17:50 2004 +++ lisppaste2/coloring-types.lisp Tue Jun 1 06:41:27 2004 @@ -42,7 +42,8 @@ :single-escaped :in-list :dotted-list-tail :syntax-error) :default-mode :normal :transitions - (((:in-list) + (#| + ((:in-list) ((scan #\.) (set-mode :dotted-list-tail :until (scan #\)) @@ -51,7 +52,7 @@ ((scan #\.) (set-mode :syntax-error :until (scan #\)) - :advancing nil))) + :advancing nil)))|# ((:normal :in-list :dotted-list-tail) ((or (scan-any *symbol-characters*) @@ -178,8 +179,8 @@ (declare (ignore type)) (let* ((colon (position #\: s :from-end t :test #'char=)) (to-lookup (if colon (subseq s (1+ colon)) s)) - (result (if (find-package :clhs) - (funcall (symbol-function (intern "FUNCTION-LOOKUP" :clhs)) + (result (if (find-package :clhs-lookup) + (funcall (symbol-function (intern "SYMBOL-LOOKUP" :clhs-lookup)) to-lookup)))) (if result (format nil "<a href=\"~A\" class=\"symbol\">~A</a>"