diff options
Diffstat (limited to 'src/interp/boot-pkg.lisp')
-rw-r--r-- | src/interp/boot-pkg.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/boot-pkg.lisp b/src/interp/boot-pkg.lisp index 39e52c06..0bfffad7 100644 --- a/src/interp/boot-pkg.lisp +++ b/src/interp/boot-pkg.lisp @@ -1,6 +1,6 @@ ;; Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. ;; All rights reserved. -;; Copyright (C) 2007-2011, Gabriel Dos Reis. +;; Copyright (C) 2007-2012, Gabriel Dos Reis. ;; All rights reserved. ;; ;; Redistribution and use in source and binary forms, with or without @@ -52,7 +52,7 @@ (setf (symbol-function f) v))) (defun |gensym?| (s) - (null (symbol-package s))) + (and (symbolp s) (null (symbol-package s)))) ;; Below are some missing functions. There here for lack of better ;; place (sys-funs.lisp?) |