diff --git a/lisp/dump-sbcl.lisp b/lisp/dump-sbcl.lisp index e78df0e..da77ea2 100644 --- a/lisp/dump-sbcl.lisp +++ b/lisp/dump-sbcl.lisp @@ -126,10 +126,14 @@ IR1 (deftransform), IR2 (VOP) information in the infodb." (setf (sb-impl::package-%shadowing-symbols package) nil) (format t ".") (setf (sb-impl::package-internal-symbols package) - (sb-impl::make-package-hashtable 0)) + (if (fboundp 'sb-impl::make-symbol-table) + (sb-impl::make-symbol-table 0) + (sb-impl::make-package-hashtable 0))) (format t ".") (setf (sb-impl::package-external-symbols package) - (sb-impl::make-package-hashtable 0)) + (if (fboundp 'sb-impl::make-symbol-table) + (sb-impl::make-symbol-table 0) + (sb-impl::make-package-hashtable 0))) (format t ".") (setf (sb-impl::package-tables package) #()) (format t ".")