mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-17 15:40:54 -07:00
Code Issues Projects Releases Packages Wiki Activity

Ensure FIND-RELATIVE-PACKAGE gets a string

Browse source
This commit is contained in:
jgarcia 2007-11-24 15:58:33 +00:00
parent 13b177387d
commit d92cac2436
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/lsp/packlib.lsp
View file

@ -193,7 +193,9 @@ If PACKAGE is non-NIL, then only the specified PACKAGE is searched."
((= i len) nil)
(declare (fixnum len i))
(when (char/= #\. (char name i)) (return i)))))
(when (and (plusp (length name)) (char= #\. (char name 0)))
(when (and (stringp name)
(plusp (length name))
(char= #\. (char name 0)))
(let* ((last-dot-position (or (find-non-dot name) (length name)))
(n-dots (the 'fixnum last-dot-position))
(name (subseq name last-dot-position)))