[j-devel] Re: find-symbol on keywords package

[Alex M. <udo...@us...>]

(message (Hello 'Randolph)
(you :wrote :to '(All) :on '(Fri, 12 Nov 2004 04:19:47 +0200))
(

 AM> (find-symbol "A" "") fails because it cannot find package named "".
 AM> however, in clisp and ACL it works..

and by the way, is it ok that when i redefine find-symbol:

CL-USER> (in-package :common-lisp)
#<PACKAGE "COMMON-LISP">
CL> (setq *old-find-symbol* (function find-symbol))
#<FUNCTION FIND-SYMBOL>
CL> (defun find-symbol (sym &optional package)
 (if package
  (progn
    (if (equal package "") (setq package "KEYWORD"))
    (funcall *old-find-symbol* sym package))
  (funcall *old-find-symbol* sym)))

FIND-SYMBOL

it appears to be working right from top-level:

CL> (in-package :cl-user)
#<PACKAGE "COMMON-LISP-USER">
CL-USER> (find-symbol "A" "")
:A
:EXTERNAL

 but functions in compiled swank still use old version of find-symbol?

  30:
(INVOKE-DEBUGGER #<PACKAGE-ERROR {16C6DA9}>)
  31:
(FIND-SYMBOL "A" "")
  32:
(SWANK::PARSE-SYMBOL ":a")

)
(With-best-regards '(Alex Mizrahi) :aka 'killer_storm)
(prin1 "Jane dates only Lisp programmers"))