diff options
Diffstat (limited to 'src/interp/nlib.lisp')
| -rw-r--r-- | src/interp/nlib.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/nlib.lisp b/src/interp/nlib.lisp index 4ee13797..338ae9bd 100644 --- a/src/interp/nlib.lisp +++ b/src/interp/nlib.lisp @@ -1,6 +1,6 @@ ;; Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. ;; All rights reserved. -;; Copyright (C) 2007-2010, Gabriel Dos Reis. +;; Copyright (C) 2007-2012, Gabriel Dos Reis. ;; All rights reserved. ;; ;; Redistribution and use in source and binary forms, with or without @@ -239,7 +239,7 @@ (defun spad-fixed-arg (fname ) (and (equal (symbol-package fname) (find-package "BOOT")) (not (get fname 'compiler::spad-var-arg)) - (search ";" (symbol-name fname)) + (|findChar| #\; (symbol-name fname)) (or (get fname 'compiler::fixed-args) (setf (get fname 'compiler::fixed-args) t))) nil) |