From 0f6c76079f6e1b7c629d7e056761028f4fa30f7e Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Sat, 16 Mar 2013 12:05:31 +0000 Subject: [PATCH] micro-optimize sane-package a tiny bit more --- src/code/primordial-extensions.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- 1.7.10.4