diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-05-12 03:11:52 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-05-12 03:11:52 +0000 |
| commit | c849886ef096a445a65041c0e54ab02728b7b512 (patch) | |
| tree | c8e791d6c78d6146c393d4e9358deb1f4aa3c725 /src/interp/nlib.lisp | |
| parent | d0c0f05a363c11d57c7d70baa224dccb92687ae3 (diff) | |
| download | open-axiom-c849886ef096a445a65041c0e54ab02728b7b512.tar.gz | |
* interp/c-util.boot: Miscellaneous cleanup.
* interp/compiler.boot: Likewise.
* interp/database.boot: Likewise.
* interp/debug.lisp: Likewise.
* interp/format.boot: Likewise.
* interp/g-timer.boot: Likewise.
* interp/ht-util.boot: Likewise.
* interp/i-syscmd.boot: Likewise.
* interp/macros.lisp: Likewise.
* interp/monitor.lisp: Likewise.
* interp/msgdb.boot: Likewise.
* interp/newfort.boot: Likewise.
* interp/nlib.lisp: Likewise.
* interp/parsing.lisp: Likewise.
* interp/pf2atree.boot: Likewise.
* interp/pf2sex.boot: Likewise.
* interp/posit.boot: Likewise.
* interp/sfsfun.boot: Likewise.
* interp/util.lisp: Likewise.
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) |