diff options
Diffstat (limited to 'src/interp/vmlisp.lisp')
| -rw-r--r-- | src/interp/vmlisp.lisp | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp index 696c8821..7845b25e 100644 --- a/src/interp/vmlisp.lisp +++ b/src/interp/vmlisp.lisp @@ -395,9 +395,6 @@ (defmacro qstimes (x y) `(the fixnum (* (the fixnum ,x) (the fixnum ,y)))) -(defmacro qstringlength (x) - `(the fixnum (length (the simple-string ,x)))) - (defmacro qszerop (x) `(zerop (the fixnum ,x))) @@ -449,9 +446,6 @@ (defmacro smintp (n) `(typep ,n 'fixnum)) -(defmacro stringlength (x) - `(length (the string ,x))) - (defmacro subrp (x) `(compiled-function-p ,x)) |