[Lisppaste-cvs] CVS update: lisppaste2/clhs-lookup.lisp lisppaste2/coloring-types.lisp

[Brian Mastenbrook]

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>"