From 8537f9ea356b8a14fd719bdd0a83084814a8e4f6 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sun, 29 Jul 1990 12:06:27 +0000 Subject: [PATCH] Fixed with-mumble-string(s) macros to not say (the simple-string foo) when foo isn't a simple-string. --- code/string.lisp | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/code/string.lisp b/code/string.lisp index 838d97509..94b214e00 100644 --- a/code/string.lisp +++ b/code/string.lisp @@ -65,8 +65,7 @@ (with-array-data ((,data ,string :offset-var ,offset) (,data-start ,start) (,data-end (or ,end - (length (the simple-string - ,string))))) + (length (the vector ,string))))) (psetq ,string ,data ,cum-offset ,offset ,start ,data-start @@ -87,7 +86,7 @@ (if (array-header-p ,string) (with-array-data ((data ,string) (data-start start) - (data-end (length (the simple-string ,string)))) + (data-end (length (the vector ,string)))) (psetq ,string data start data-start end data-end)) @@ -114,8 +113,7 @@ (with-array-data ((,data ,string1 :offset-var ,offset) (,data-start ,start1) (,data-end (or ,end1 - (length (the simple-string - ,string1))))) + (length (the vector ,string1))))) (psetq ,string1 ,data ,cum-offset-1 ,offset ,start1 ,data-start @@ -125,8 +123,7 @@ (with-array-data ((,data ,string2) (,data-start ,start2) (,data-end (or ,end2 - (length (the simple-string - ,string2))))) + (length (the vector ,string2))))) (psetq ,string2 ,data ,start2 ,data-start ,end2 ,data-end)) -- GitLab