Improved error message

When INTERN_ or SYMBOL_EXPORT_SC_ macros are used if
you use the wrong package name the error message has been improved

Author: drmeister

src/scraper/interpret-tags.lisp

@@ -947,9 +947,11 @@ Compare the symbol against previous definitions of symbols - if there is a misma
 (defmethod interpret-tag ((tag tags:symbol-tag) state)
   (let* ((c++-name (or (tags:c++-name% tag) (tags:lisp-name% tag)))
          (namespace (or (tags:namespace% tag)
-                        (tags:namespace%
-                         (gethash (tags:package% tag)
-                                  (state-package-to-assoc state)))))
+                                  (tags:namespace%
+                                   (let ((nst (gethash (tags:package% tag) (state-package-to-assoc state))))
+                                     (unless nst
+                                       (error "Couldn't find state-package-to-assoc for tag: ~s - did you use a wrong package name like KwPkg?????" tag))
+                                     nst))))
          (package (or (tags:package% tag)
                       (tags:package%
                        (gethash (tags:namespace% tag)

src/scraper/sif-file.lisp

@@ -61,4 +61,6 @@ Read a list of tags from the sif file."
     (with-open-file (stream sif-pathname :direction :input :external-format :utf-8)
       (loop for tag = (read stream nil stream)
             until (eq tag stream)
+            unless tag
+              do (error "Encountered a NIL tag in ~s" sif-pathname)
             collect tag))))

src/scraper/tags.lisp

@@ -180,6 +180,16 @@
    (c++-name% :initform nil :initarg :c++-name% :reader tags:c++-name%)
    (lisp-name% :initarg :lisp-name% :reader tags:lisp-name%)))
 
+(defmethod print-object ((tag tags:symbol-tag) stream)
+  (print-unreadable-object (tag stream :type t)
+    (format stream ":namespace% ~s :package% ~s :c++-name% ~s :lisp-name% ~s :file ~s :line ~s"
+            (tags:namespace% tag)
+            (tags:package% tag)
+            (tags:c++-name% tag)
+            (tags:lisp-name% tag)
+            (tags:file% tag)
+            (tags:line% tag))))
+
 (defclass tags:symbol-external-tag (symbol-tag) ())
 (defclass tags:symbol-shadow-external-tag (symbol-external-tag) ())
 (defclass tags:detailed-symbol-external-tag (symbol-external-tag) ())