-rwxr-xr-x | gcl/lsp/gcl_predlib.lsp | 5 |
diff --git a/gcl/lsp/gcl_predlib.lsp b/gcl/lsp/gcl_predlib.lsp index ee70e763a..d79052709 100755 --- a/gcl/lsp/gcl_predlib.lsp +++ b/gcl/lsp/gcl_predlib.lsp @@ -133,11 +133,16 @@ (structure . si:structurep) (function . functionp) (vector . vectorp) + (bit-vector . bit-vector-p) (array . arrayp) (string . stringp) (float . floatp) (complex . complexp) (real . realp) + (simple-array . simple-array-p) + (simple-vector . simple-vector-p) + (simple-string . simple-string-p) + (simple-bit-vector . simple-bit-vector-p) (compiled-function . compiled-function-p) (common . commonp) ) |