| author | Camm Maguire <camm@debian.org> | 2014年10月16日 11:51:17 -0400 |
|---|---|---|
| committer | Camm Maguire <camm@debian.org> | 2014年10月16日 11:51:17 -0400 |
| commit | 65a13a38bb74e3d7db2ac2bcefa5367851e19f71 (patch) | |
| tree | 39e1b6d95d5a86e58a2f51e849128cecf66c573a | |
| parent | 4f1c2c4b04a349fa938219f1c675d57aba32c629 (diff) | |
| download | gcl-65a13a38bb74e3d7db2ac2bcefa5367851e19f71.tar.gz | |
| -rwxr-xr-x | gcl/lsp/gcl_assert.lsp | 5 |
diff --git a/gcl/lsp/gcl_assert.lsp b/gcl/lsp/gcl_assert.lsp index 48ecbe258..cf1ecfc32 100755 --- a/gcl/lsp/gcl_assert.lsp +++ b/gcl/lsp/gcl_assert.lsp @@ -53,8 +53,7 @@ "Please input the new value for the place ~:@(~S~): " ',place) (finish-output *error-output*) - (setf ,place (read)))) places) - (format *error-output* "Now continuing ...~%"))) + (setf ,place (read)))) places))) (defmacro typecase (keyform &rest clauses &aux (key (if (symbolp keyform) keyform (sgen "TYPECASE")))) (declare (optimize (safety 2))) @@ -77,6 +76,6 @@ (declare (optimize (safety 2))) ; (check-type clauses (list-of proper-list)) (let ((tp `(or ,@(mapcar 'car clauses)))) - `(typecase ,keyform ,@clauses (t (error 'type-error :datum ,key :expected-type ',tp))))) + `(let ((,key ,keyform)) (typecase ,key ,@clauses (t (error 'type-error :datum ,key :expected-type ',tp)))))) |