[Openmcl-devel] Quartz not working in v1.10

[Ron Garret]

The bug is here:

(defun case-insensitive-string-to-symbol (string pkg)
  (when (null pkg) (setq pkg *package*))
  (let* ((pkg-alist (gethash string *string-to-symbol-cache*))
         (known (assoc pkg pkg-alist)))
    (if known
      (cdr known)
      (let* ((str (coerce string 'simple-string))
             (*package* pkg)
             (*read-eval* nil)
             (sym (ignore-errors (read-from-string str))))  ;;; <<<— someone apparently forgot that READ-FROM-STRING has side effects
        (unless (symbolp sym) (setq sym nil))
        (setf (gethash str *string-to-symbol-cache*) (cons (cons pkg sym) pkg-alist))
        sym))))

I have no idea what this code is for, so I don’t know how to fix it properly.  But simply redefining this function to do nothing seems to work.

On Nov 5, 2014, at 11:58 AM, Ron Garret <ron at flownet.com> wrote:

> 
> On Nov 5, 2014, at 11:40 AM, Ron Garret <ron at flownet.com> wrote:
> 
>> 
>> On Nov 5, 2014, at 11:27 AM, Ron Garret <ron at flownet.com> wrote:
>> 
>>> Somehow my image got built with pageAtIndex: already interned in the nsfun package (how that happened I still don’t know)
>> 
>> Now I know.  It appears to be a Hemlock bug :-)
>> 
>> Welcome to Clozure Common Lisp Version 1.10-r16304M  (DarwinX8664)!
>> ? (apropos "pageAt")
>> ? (apropos "pageAt")
>> NEXTSTEP-FUNCTIONS:|pageAtIndex:|
>> 
>> In between those two calls to apropos I opened a file that contained the following text:
>> 
>> '#/pageAtIndex:
>> 
>> So apparently Hemlock is not properly setting *read-suppress* during syntax parsing, or something like that.
> 
> Whee!!!!
> 
> Welcome to Clozure Common Lisp Version 1.10-r16304M  (DarwinX8664)!
> ? 'abcdefghijklmnopqrstuvwxyz
> ABCDEFGHIJKLMNOPQRSTUVWXYZ
> ? (apropos 'abc)
> ABC
> ABCD
> ABCDE
> ABCDEF
> ABCDEFG
> ABCDEFGH
> ABCDEFGHI
> ABCDEFGHIJ
> ABCDEFGHIJK
> ABCDEFGHIJKL
> ABCDEFGHIJKLM
> ABCDEFGHIJKLMN
> ABCDEFGHIJKLMNO
> ABCDEFGHIJKLMNOP
> ABCDEFGHIJKLMNOPQ
> ABCDEFGHIJKLMNOPQR
> ABCDEFGHIJKLMNOPQRS
> ABCDEFGHIJKLMNOPQRST
> ABCDEFGHIJKLMNOPQRSTU
> ABCDEFGHIJKLMNOPQRSTUV
> ABCDEFGHIJKLMNOPQRSTUVW
> ABCDEFGHIJKLMNOPQRSTUVWX
> ABCDEFGHIJKLMNOPQRSTUVWXY
> ABCDEFGHIJKLMNOPQRSTUVWXYZ
> ABCDEFGHIJKLMNOPQRSTUVWZ
> :ABCL,  Value: :ABCL
> ? 
> 
> I opened a ticket.
> 
> rg
> 
> _______________________________________________
> Openmcl-devel mailing list
> Openmcl-devel at clozure.com
> https://lists.clozure.com/mailman/listinfo/openmcl-devel