Changeset 2626

Show
Ignore:
Timestamp:
02/26/08 11:57:32 (11 months ago)
Author:
hans
Message:

Improve error message when a package is mentioned in a snapshot file
that does not exist in the running lisp.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/bknr/datastore/src/data/encoding.lisp

    r2265 r2626  
    325325         (s (make-array n))) 
    326326    (excl::stream-read-sequence stream s) 
    327     #+nil(map 'string #'code-char s) 
    328     #-nil(coerce s 'string))) 
     327    #+nil (map 'string #'code-char s) 
     328    #-nil (coerce s 'string))) 
    329329 
    330330(defun %decode-symbol (stream) 
    331331  (let ((p (%decode-string stream)) 
    332332        (n (%decode-string stream))) 
    333     (intern n (find-package p)))) 
     333    (intern n (or (find-package p) 
     334                  (error "package ~A for symbol ~A not found" p n))))) 
    334335 
    335336(defun %decode-list (stream)