/[gcl]/gcl/lsp/gcl_arraylib.lsp
ViewVC logotype

Diff of /gcl/lsp/gcl_arraylib.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by camm, Tue Aug 9 00:35:32 2005 UTC revision 1.9 by camm, Wed Sep 7 02:45:32 2005 UTC
# Line 44  Line 44 
44  (proclaim '(optimize (safety 2) (space 3)))  (proclaim '(optimize (safety 2) (space 3)))
45    
46  (defun best-array-element-type (type)  (defun best-array-element-type (type)
47    (cond ((not type))    (cond ((not type) nil)
48          ((eq type '*) '*)          ((eq type '*) '*)
49          ((member type '(string-char character standard-char base-char extended-char)) 'string-char) ;FIXME          ((member type '(string-char character standard-char base-char extended-char)) 'string-char) ;FIXME
50          ((car (member type +array-types+)))          ((car (member type +array-types+)))

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26