Changeset 12412
- Timestamp:
- 02/01/10 22:14:07 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/format.lisp
r11784 r12412 298 298 299 299 (defvar *format-directive-expanders* 300 (make- array char-code-limit :initial-element nil))300 (make-hash-table :test #'eq)) 301 301 (defvar *format-directive-interpreters* 302 (make- array char-code-limit :initial-element nil))302 (make-hash-table :test #'eq)) 303 303 304 304 (defvar *default-format-error-control-string* nil) … … 595 595 (format-directive 596 596 (let ((expander 597 ( aref *format-directive-expanders*598 (char-code (format-directive-character directive))))597 (gethash (format-directive-character directive) 598 *format-directive-expanders*)) 599 599 (*default-format-error-offset* 600 600 (1- (format-directive-end directive)))) … … 712 712 713 713 (defun %set-format-directive-expander (char fn) 714 (setf ( aref *format-directive-expanders* (char-code (char-upcase char))) fn)714 (setf (gethash (char-upcase char) *format-directive-expanders*) fn) 715 715 char) 716 716 717 717 (defun %set-format-directive-interpreter (char fn) 718 (setf (aref *format-directive-interpreters* 719 (char-code (char-upcase char))) 720 fn) 718 (setf (gethash (char-upcase char) *format-directive-interpreters*) fn) 721 719 char) 722 720 … … 1764 1762 (let* ((character (format-directive-character directive)) 1765 1763 (function 1766 (svref *format-directive-interpreters* 1767 (char-code character))) 1764 (gethash character *format-directive-interpreters*)) 1768 1765 (*default-format-error-offset* 1769 1766 (1- (format-directive-end directive))))
Note: See TracChangeset
for help on using the changeset viewer.