From: Christophe Rhodes <csr21@cantab.net>
Date: Sat, 16 Mar 2013 12:05:31 +0000 (+0000)
Subject: micro-optimize sane-package a tiny bit more
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=0f6c76079f6e1b7c629d7e056761028f4fa30f7e;p=sbcl.git

micro-optimize sane-package a tiny bit more
---

diff --git a/src/code/primordial-extensions.lisp b/src/code/primordial-extensions.lisp
index 3a5350f..284b401 100644
--- a/src/code/primordial-extensions.lisp
+++ b/src/code/primordial-extensions.lisp
@@ -222,7 +222,8 @@
                 ;; but it will immediately lead to undefined to behavior,
                 ;; since almost any operation on a deleted package is
                 ;; undefined.
-                (package-name maybe-package))
+                #-sb-xc-host
+                (package-%name maybe-package))
            maybe-package)
           (t
            ;; We're in the undefined behavior zone. First, munge the