diff options
Diffstat (limited to 'src/interp/bootlex.lisp')
| -rw-r--r-- | src/interp/bootlex.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/bootlex.lisp b/src/interp/bootlex.lisp index 6c64abca..487de0e3 100644 --- a/src/interp/bootlex.lisp +++ b/src/interp/bootlex.lisp @@ -358,7 +358,7 @@ or the chracters ?, !, ' or %" (defun TRANSLABEL1 (X AL) "Transforms X according to AL = ((<label> . Sexpr) ..)." - (COND ((REFVECP X) + (COND ((simple-vector-p X) (do ((i 0 (1+ i)) (k (maxindex x))) ((> i k)) |