[Openmcl-cvs-notifications] r11789 - /release/1.3/source/cocoa-ide/cocoa-doc.lisp

[rme at clozure.com]

Author: rme
Date: Tue Feb 24 16:51:23 2009
New Revision: 11789

Log:
Merge r11788 from trunk (fix to hyperspec-map-hash)

Modified:
    release/1.3/source/cocoa-ide/cocoa-doc.lisp

Modified: release/1.3/source/cocoa-ide/cocoa-doc.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- release/1.3/source/cocoa-ide/cocoa-doc.lisp (original)
+++ release/1.3/source/cocoa-ide/cocoa-doc.lisp Tue Feb 24 16:51:23 2009
@@ -105,7 +105,7 @@
 (defun hyperspec-map-hash (document)
   (or *hyperspec-map-sym-hash*
       (rlet ((perror :id  +null-ptr+))
-        (let* ((map-url (make-instance 'ns:ns-url :with-string "Data/Map_S=
ym.txt" :relative-to-url (hyperspec-root-url)))
+        (let* ((map-url (make-instance 'ns:ns-url :with-string #@"Data/Map=
_Sym.txt" :relative-to-url (hyperspec-root-url)))
                (data (make-instance 'ns:ns-data
                                     :with-contents-of-url map-url
                                     :options 0