/[gcl]/gcl/cmpnew/cmpinline.lsp
ViewVC logotype

Diff of /gcl/cmpnew/cmpinline.lsp

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

revision 1.1.1.1 by wfs, Mon Dec 6 22:43:56 1999 UTC revision 1.2 by camm, Sat Jul 20 07:10:54 2002 UTC
# Line 475  Line 475 
475                                               (char-code #\0)))                                               (char-code #\0)))
476                                    (when (and                                    (when (and
477                                           (> (length fun) (+ i 2))                                           (> (length fun) (+ i 2))
478                                           (setq ch (char (the string fun)                                           (progn (setq ch (char (the string fun)
479                                                          (+ i 2)))                                                          (+ i 2)))
480                                           (digit-char-p ch))                                           (digit-char-p ch)))
481                                          (setq n (+ (* n 10)                                          (setq n (+ (* n 10)
482                                                     (- (char-code ch)                                                     (- (char-code ch)
483                                                        (char-code #\0))))                                                        (char-code #\0))))

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

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