with-slotsマクロをsymbol-macroletマクロに置換
trunk/cl-igo/code-stream.lisp (diff)| @@ -50,7 +50,8 @@ | ||
| 50 | 50 | |
| 51 | 51 | (defun read (code-stream) |
| 52 | 52 | (declare (code-stream code-stream)) |
| 53 | - (with-slots (position surrogate?) code-stream | |
| 53 | + (symbol-macrolet ((position (position code-stream)) | |
| 54 | + (surrogate? (surrogate? code-stream))) | |
| 54 | 55 | (cond (surrogate? |
| 55 | 56 | (setf surrogate? nil) |
| 56 | 57 | (prog1 (low-surrogate (code code-stream)) |
| @@ -69,7 +70,8 @@ | ||
| 69 | 70 | |
| 70 | 71 | (defun unread (code-stream) |
| 71 | 72 | (declare (code-stream code-stream)) |
| 72 | - (with-slots (position surrogate?) code-stream | |
| 73 | + (symbol-macrolet ((position (position code-stream)) | |
| 74 | + (surrogate? (surrogate? code-stream))) | |
| 73 | 75 | (if surrogate? |
| 74 | 76 | (setf surrogate? nil) |
| 75 | 77 | (decf position)))) |
| \ No newline at end of file |