/[gcl]/gcl/ansi-tests/ansi-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/ansi-aux.lsp

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

revision 1.6 by pfdietz, Fri Oct 18 02:36:06 2002 UTC revision 1.7 by pfdietz, Sat Oct 19 13:10:23 2002 UTC
# Line 235  the condition to go uncaught if it canno Line 235  the condition to go uncaught if it canno
235                 (rotatef (elt seq r) (elt seq (1- i))))))                 (rotatef (elt seq r) (elt seq (1- i))))))
236    seq)    seq)
237    
238    (defun make-list-expr (args)
239      "Build an expression for computing (LIST . args), but that evades
240       CALL-ARGUMENTS-LIMIT."
241      (if (cddddr args)
242          (list 'list*
243                (first args) (second args) (third args) (fourth args)
244                (make-list-expr (cddddr args)))
245        (cons 'list args)))  
246    
247  (defparameter +standard-chars+  (defparameter +standard-chars+
248    "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789~!@#$%^&*()_+|\\=-`{}[]:\";'<>?,./    "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789~!@#$%^&*()_+|\\=-`{}[]:\";'<>?,./
249  ")  ")

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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