- closure-cvs@common-lisp.net - mailman3.common-lisp.net

[closure-cvs] CVS update: closure/src/imagelib/png.lisp
by emarsden＠common-lisp.net 10 Jul '05

10 Jul '05

Update of /project/closure/cvsroot/closure/src/imagelib In directory common-lisp.net:/tmp/cvs-serv26893 Modified Files: png.lisp Log Message: Move constant definition before its use. Date: Sun Jul 10 12:36:04 2005 Author: emarsden Index: closure/src/imagelib/png.lisp diff -u closure/src/imagelib/png.lisp:1.4 closure/src/imagelib/png.lisp:1.5 --- closure/src/imagelib/png.lisp:1.4 Sun Mar 13 19:02:01 2005 +++ closure/src/imagelib/png.lisp Sun Jul 10 12:36:03 2005 @@ -52,6 +52,9 @@ (defvar *png-magic* '#(137 80 78 71 13 10 26 10) "The first eight bytes of a png file.") +;; largest prime smaller than 65536 +(defconstant *adler-base* 65521) + (defstruct png-image ihdr idat @@ -675,9 +678,6 @@ ;; (funcall cont buf 0 blen))) ) (setf (zlib-stream-bptr zlib-stream) 0))) - -;; largest prime smaller than 65536 -(defconstant *adler-base* 65521) (defun update-adler32-one (adler byte) (let ((s1 (ldb (byte 16 0) adler))

1 0

[closure-cvs] CVS update: closure/src/renderer/clim-device.lisp
by crhodes＠common-lisp.net 20 Jun '05

20 Jun '05

Update of /project/closure/cvsroot/closure/src/renderer In directory common-lisp.net:/tmp/cvs-serv24112/src/renderer Modified Files: clim-device.lisp Log Message: Believe it or not, the clim text style family is :fix, not :fixed. Make it so. Date: Mon Jun 20 17:37:33 2005 Author: crhodes Index: closure/src/renderer/clim-device.lisp diff -u closure/src/renderer/clim-device.lisp:1.9 closure/src/renderer/clim-device.lisp:1.10 --- closure/src/renderer/clim-device.lisp:1.9 Sun Mar 13 22:15:09 2005 +++ closure/src/renderer/clim-device.lisp Mon Jun 20 17:37:33 2005 @@ -82,7 +82,7 @@ :device self))) (loop for family in '("Times" "Helvetica" "Courier") - for clim-family in '(:serif :sans-serif :fixed) + for clim-family in '(:serif :sans-serif :fix) for size-adjust in '(-2 -2 -2) do (loop for weight+style in '((400 :normal) (400 :italic) (700 :normal) (700 :italic)) @@ -127,7 +127,7 @@ :device self))) (loop for family in '("Times" "Helvetica" "Courier") - for clim-family in '(:serif :sans-serif :fixed) + for clim-family in '(:serif :sans-serif :fix) for size-adjust in '(-2 0 -2) do (loop for weight+style in '((400 :normal) (400 :italic) (700 :normal) (700 :italic))

1 0

[closure-cvs] CVS update: closure/src/renderer/list-item.lisp
by crhodes＠common-lisp.net 13 Jun '05

13 Jun '05

Update of /project/closure/cvsroot/closure/src/renderer In directory common-lisp.net:/tmp/cvs-serv3228/src/renderer Modified Files: list-item.lisp Log Message: Make it compile under sbcl. Re-enable the WARNING hack in closure.asd, and remove one or two uses of non-standard-chars in code. Date: Mon Jun 13 12:14:23 2005 Author: crhodes Index: closure/src/renderer/list-item.lisp diff -u closure/src/renderer/list-item.lisp:1.2 closure/src/renderer/list-item.lisp:1.3 --- closure/src/renderer/list-item.lisp:1.2 Sun Mar 13 19:03:24 2005 +++ closure/src/renderer/list-item.lisp Mon Jun 13 12:14:23 2005 @@ -60,7 +60,7 @@ ;; ## make this element in a way that it is still possible to ;; overwrite stuff in the style sheet. "Given a list item element 'list-element' return a synthetic element -which serves the rôle of an before psuedo element containing the list item marker" +which serves the role of an before psuedo element containing the list item marker" (let* ((list-style-type (cooked-style-list-style-type style)) (list-style-position (cooked-style-list-style-position style)) (list-style-image (cooked-style-list-style-image style))

1 0

[closure-cvs] CVS update: closure/closure.asd
by crhodes＠common-lisp.net 13 Jun '05

13 Jun '05

Update of /project/closure/cvsroot/closure In directory common-lisp.net:/tmp/cvs-serv3228 Modified Files: closure.asd Log Message: Make it compile under sbcl. Re-enable the WARNING hack in closure.asd, and remove one or two uses of non-standard-chars in code. Date: Mon Jun 13 12:14:22 2005 Author: crhodes Index: closure/closure.asd diff -u closure/closure.asd:1.4 closure/closure.asd:1.5 --- closure/closure.asd:1.4 Sun Mar 13 21:54:52 2005 +++ closure/closure.asd Mon Jun 13 12:14:22 2005 @@ -47,14 +47,12 @@ (handler-bind ((sb-ext:compiler-note #'muffle-warning)) (call-next-method))) -#| ;;; Convenience feature: will stop it from breaking into the debugger ;;; under sbcl for full WARNINGs (better to fix the warnings :-). #+sbcl (defmethod perform :around ((o compile-op) s) (setf (operation-on-failure o) :warn) (call-next-method o s)) -|# (defpackage :glisp (:use)) (asdf:defsystem glisp

1 0

[closure-cvs] CVS update: closure/src/html/html-style.lisp
by crhodes＠common-lisp.net 13 Jun '05

13 Jun '05

Update of /project/closure/cvsroot/closure/src/html In directory common-lisp.net:/tmp/cvs-serv3228/src/html Modified Files: html-style.lisp Log Message: Make it compile under sbcl. Re-enable the WARNING hack in closure.asd, and remove one or two uses of non-standard-chars in code. Date: Mon Jun 13 12:14:23 2005 Author: crhodes Index: closure/src/html/html-style.lisp diff -u closure/src/html/html-style.lisp:1.4 closure/src/html/html-style.lisp:1.5 --- closure/src/html/html-style.lisp:1.4 Sun Mar 13 22:01:59 2005 +++ closure/src/html/html-style.lisp Mon Jun 13 12:14:22 2005 @@ -1290,7 +1290,7 @@ (cond ((string-equal :link (car k)) (let ((links (netlib:parse-http-link-field (cdr k)))) (cond ((null links) - (warn "HTTP »Link« header field has illegal syntax: ~S." (cdr k))) + (warn "HTTP \"Link\" header field has illegal syntax: ~S." (cdr k))) (t (dolist (link links) (process-head-child document (sgml:lhtml->pt link)))))))))

1 0

[closure-cvs] CVS update: cxml/cxml.asd
by dlichteblau＠common-lisp.net 13 May '05

13 May '05

Update of /project/cxml/cvsroot/cxml In directory common-lisp.net:/tmp/cvs-serv2122 Modified Files: cxml.asd Log Message: defsystem fix (thanks to Dave Lambert) Date: Fri May 13 21:57:38 2005 Author: dlichteblau Index: cxml/cxml.asd diff -u cxml/cxml.asd:1.3 cxml/cxml.asd:1.4 --- cxml/cxml.asd:1.3 Wed Apr 20 21:57:59 2005 +++ cxml/cxml.asd Fri May 13 21:57:38 2005 @@ -81,7 +81,6 @@ (:file "xml-name-rune-p" :depends-on ("package")) (:file "split-sequence" :depends-on ("package")) (:file "xml-parse" :depends-on ("package" "util" "sax-handler" "split-sequence" "xml-name-rune-p" "characters")) - (:file "characters" :depends-on ("package")) (:file "unparse" :depends-on ("xml-parse")) (:file "xmls-compat" :depends-on ("xml-parse")) (:file "recoder" :depends-on ("xml-parse"))

1 0

[closure-cvs] CVS update: closure/src/css/css-selector.lisp
by dlichteblau＠common-lisp.net 04 May '05

04 May '05

Update of /project/closure/cvsroot/closure/src/css In directory common-lisp.net:/tmp/cvs-serv17135 Modified Files: css-selector.lisp Log Message: revert rev 1.5! (Sorry! That was never meant to be checked in. Serves me right for not deleting the CVS directory before importing into subversion...) Date: Wed May 4 21:30:48 2005 Author: dlichteblau Index: closure/src/css/css-selector.lisp diff -u closure/src/css/css-selector.lisp:1.5 closure/src/css/css-selector.lisp:1.6 --- closure/src/css/css-selector.lisp:1.5 Wed May 4 21:24:13 2005 +++ closure/src/css/css-selector.lisp Wed May 4 21:30:48 2005 @@ -1,4 +1,4 @@ -;;; -*- Mode: Lisp; Syntax: Common-Lisp; Encoding: utf-8; -*- +;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CSS; Readtable: GLISP; Encoding: utf-8; -*- ;;; --------------------------------------------------------------------------- ;;; Title: CSS selectors ;;; [Split off from css-parse.lisp] @@ -28,7 +28,7 @@ ;;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -(in-package :css) +(in-package :CSS) (defun create-style-sheet (super-sheet &key (name "Anonymous style sheet") base-url @@ -435,6 +435,19 @@ (and r (cons (cons 'or (car r)) (cdr r))))) +(defun parse-media-type (string) + ;; xxx unicode! + (let ((r (parse-media-type-2 + (tokenize + (slurp + (cl-char-stream->gstream + (make-string-input-stream string))))))) + (cond ((and r (null (cdr r))) + (car r)) + (t + (warn "Bad media type: ~S." string) + nil)))) + (defun parse-import-rule (seq) (let ((toks (tokenize seq)) (media-type :all)) @@ -637,7 +650,7 @@ (tagbody loob (let ((a (q/simple-selector))) - (q/s*) + (q/S*) (push a res) (cond ((member (q/tok) '(:ident :hash :|.| :|[| :|:| :|*|)) (push 'ancestor res) @@ -796,14 +809,6 @@ (setf res (map 'vector #'+ res (css2-selector-specificity (cdr p))))))) res)) -(defun parse-style-sheet (str) - (with-input-from-string (s str) - (parse-style-sheet* (slurp s) 0 nil))) - -(defun parse-assignment-list-string (str) - (with-input-from-string (s str) - (parse-assignment-list (slurp s)))) - (defun parse-style-sheet* (seq &optional (start 0) (import-ok? t)) (let (p0 p1) (when (setq p0 (position-if-not #'white-space-p* seq :start start)) @@ -818,8 +823,8 @@ nil) (t (multiple-value-bind (sel-list condition) - (parse-css2-selector-list seq p0 p1) - (cond (condition + (ignore-errors (parse-css2-selector-list seq p0 p1)) + (cond (condition (warn "CSS selector list does not parse: `~A'." (as-string (subseq seq p0 p1))) (setq sel-list nil))) @@ -853,13 +858,13 @@ (defparameter *media-types* '(:screen :all)) -(defmethod is-of-media-type-p ((medium t) (media-type (eql :all))) t) +(defmethod is-of-media-type-p ((medium T) (media-type (eql :all))) t) (defmethod is-of-media-type-p ((medium (eql :screen)) (media-type (eql :screen))) t) -(defmethod is-of-media-type-p ((medium t) (media-type t)) +(defmethod is-of-media-type-p ((medium T) (media-type T)) nil) -(defmethod is-of-media-type-p ((medium t) (media-type cons)) +(defmethod is-of-media-type-p ((medium T) (media-type cons)) (ecase (car media-type) ((OR) (some (curry #'is-of-media-type-p medium) media-type))

1 0

[closure-cvs] CVS update: closure/src/css/css-selector.lisp
by dlichteblau＠common-lisp.net 04 May '05

04 May '05

Update of /project/closure/cvsroot/closure/src/css In directory common-lisp.net:/tmp/cvs-serv16924 Modified Files: css-selector.lisp Log Message: funktion zum parsen von assignmen listen fuer style-attribute Date: Wed May 4 21:24:13 2005 Author: dlichteblau Index: closure/src/css/css-selector.lisp diff -u closure/src/css/css-selector.lisp:1.4 closure/src/css/css-selector.lisp:1.5 --- closure/src/css/css-selector.lisp:1.4 Sun Mar 13 19:00:58 2005 +++ closure/src/css/css-selector.lisp Wed May 4 21:24:13 2005 @@ -1,4 +1,4 @@ -;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CSS; Readtable: GLISP; Encoding: utf-8; -*- +;;; -*- Mode: Lisp; Syntax: Common-Lisp; Encoding: utf-8; -*- ;;; --------------------------------------------------------------------------- ;;; Title: CSS selectors ;;; [Split off from css-parse.lisp] @@ -28,7 +28,7 @@ ;;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -(in-package :CSS) +(in-package :css) (defun create-style-sheet (super-sheet &key (name "Anonymous style sheet") base-url @@ -435,19 +435,6 @@ (and r (cons (cons 'or (car r)) (cdr r))))) -(defun parse-media-type (string) - ;; xxx unicode! - (let ((r (parse-media-type-2 - (tokenize - (slurp - (cl-char-stream->gstream - (make-string-input-stream string))))))) - (cond ((and r (null (cdr r))) - (car r)) - (t - (warn "Bad media type: ~S." string) - nil)))) - (defun parse-import-rule (seq) (let ((toks (tokenize seq)) (media-type :all)) @@ -650,7 +637,7 @@ (tagbody loob (let ((a (q/simple-selector))) - (q/S*) + (q/s*) (push a res) (cond ((member (q/tok) '(:ident :hash :|.| :|[| :|:| :|*|)) (push 'ancestor res) @@ -809,6 +796,14 @@ (setf res (map 'vector #'+ res (css2-selector-specificity (cdr p))))))) res)) +(defun parse-style-sheet (str) + (with-input-from-string (s str) + (parse-style-sheet* (slurp s) 0 nil))) + +(defun parse-assignment-list-string (str) + (with-input-from-string (s str) + (parse-assignment-list (slurp s)))) + (defun parse-style-sheet* (seq &optional (start 0) (import-ok? t)) (let (p0 p1) (when (setq p0 (position-if-not #'white-space-p* seq :start start)) @@ -823,8 +818,8 @@ nil) (t (multiple-value-bind (sel-list condition) - (ignore-errors (parse-css2-selector-list seq p0 p1)) - (cond (condition + (parse-css2-selector-list seq p0 p1) + (cond (condition (warn "CSS selector list does not parse: `~A'." (as-string (subseq seq p0 p1))) (setq sel-list nil))) @@ -858,13 +853,13 @@ (defparameter *media-types* '(:screen :all)) -(defmethod is-of-media-type-p ((medium T) (media-type (eql :all))) t) +(defmethod is-of-media-type-p ((medium t) (media-type (eql :all))) t) (defmethod is-of-media-type-p ((medium (eql :screen)) (media-type (eql :screen))) t) -(defmethod is-of-media-type-p ((medium T) (media-type T)) +(defmethod is-of-media-type-p ((medium t) (media-type t)) nil) -(defmethod is-of-media-type-p ((medium T) (media-type cons)) +(defmethod is-of-media-type-p ((medium t) (media-type cons)) (ecase (car media-type) ((OR) (some (curry #'is-of-media-type-p medium) media-type))

1 0

[closure-cvs] CVS update: cxml/xml/package.lisp cxml/xml/xml-name-rune-p.lisp cxml/xml/xml-parse.lisp
by dlichteblau＠common-lisp.net 20 Apr '05

20 Apr '05

Update of /project/cxml/cvsroot/cxml/xml In directory common-lisp.net:/tmp/cvs-serv1210/xml Modified Files: package.lisp xml-name-rune-p.lisp xml-parse.lisp Log Message: LispWorks port (thanks to Edi Weitz) Date: Wed Apr 20 21:58:07 2005 Author: dlichteblau Index: cxml/xml/package.lisp diff -u cxml/xml/package.lisp:1.1.1.29 cxml/xml/package.lisp:1.2 --- cxml/xml/package.lisp:1.1.1.29 Sun Mar 13 19:02:58 2005 +++ cxml/xml/package.lisp Wed Apr 20 21:58:07 2005 @@ -12,7 +12,8 @@ #+cmu :ext #+clisp :gray #+openmcl :ccl - #-(or sbcl allegro cmu clisp openmcl) ... + #+lispworks :stream + #-(or sbcl allegro cmu clisp openmcl lispworks) ... #:fundamental-binary-input-stream #-(or clisp openmcl) #:stream-read-sequence stream-read-byte) Index: cxml/xml/xml-name-rune-p.lisp diff -u cxml/xml/xml-name-rune-p.lisp:1.2 cxml/xml/xml-name-rune-p.lisp:1.3 --- cxml/xml/xml-name-rune-p.lisp:1.2 Fri Mar 25 19:17:34 2005 +++ cxml/xml/xml-name-rune-p.lisp Wed Apr 20 21:58:07 2005 @@ -162,43 +162,45 @@ (<= 12540 rune 12542))) (base-rune-p (rune) - (or - (<= 65 rune 90) (<= 97 rune 122) (<= 192 rune 214) (<= 216 rune 246) (<= 248 rune 255) (<= 256 rune 305) - (<= 308 rune 318) (<= 321 rune 328) (<= 330 rune 382) (<= 384 rune 451) (<= 461 rune 496) (<= 500 rune 501) - (<= 506 rune 535) (<= 592 rune 680) (<= 699 rune 705) (= 902 rune) (<= 904 rune 906) (= 908 rune) - (<= 910 rune 929) (<= 931 rune 974) (<= 976 rune 982) (= 986 rune) (= 988 rune) (= 990 rune) (= 992 rune) - (<= 994 rune 1011) (<= 1025 rune 1036) (<= 1038 rune 1103) (<= 1105 rune 1116) (<= 1118 rune 1153) - (<= 1168 rune 1220) (<= 1223 rune 1224) (<= 1227 rune 1228) (<= 1232 rune 1259) (<= 1262 rune 1269) - (<= 1272 rune 1273) (<= 1329 rune 1366) (= 1369 rune) (<= 1377 rune 1414) (<= 1488 rune 1514) - (<= 1520 rune 1522) (<= 1569 rune 1594) (<= 1601 rune 1610) (<= 1649 rune 1719) (<= 1722 rune 1726) - (<= 1728 rune 1742) (<= 1744 rune 1747) (= 1749 rune) (<= 1765 rune 1766) (<= 2309 rune 2361) (= 2365 rune) - (<= 2392 rune 2401) (<= 2437 rune 2444) (<= 2447 rune 2448) (<= 2451 rune 2472) (<= 2474 rune 2480) - (= 2482 rune) (<= 2486 rune 2489) (<= 2524 rune 2525) (<= 2527 rune 2529) (<= 2544 rune 2545) - (<= 2565 rune 2570) (<= 2575 rune 2576) (<= 2579 rune 2600) (<= 2602 rune 2608) (<= 2610 rune 2611) - (<= 2613 rune 2614) (<= 2616 rune 2617) (<= 2649 rune 2652) (= 2654 rune) (<= 2674 rune 2676) - (<= 2693 rune 2699) (= 2701 rune) (<= 2703 rune 2705) (<= 2707 rune 2728) (<= 2730 rune 2736) - (<= 2738 rune 2739) (<= 2741 rune 2745) (= 2749 rune) (= 2784 rune) (<= 2821 rune 2828) (<= 2831 rune 2832) - (<= 2835 rune 2856) (<= 2858 rune 2864) (<= 2866 rune 2867) (<= 2870 rune 2873) (= 2877 rune) - (<= 2908 rune 2909) (<= 2911 rune 2913) (<= 2949 rune 2954) (<= 2958 rune 2960) (<= 2962 rune 2965) - (<= 2969 rune 2970) (= 2972 rune) (<= 2974 rune 2975) (<= 2979 rune 2980) (<= 2984 rune 2986) - (<= 2990 rune 2997) (<= 2999 rune 3001) (<= 3077 rune 3084) (<= 3086 rune 3088) (<= 3090 rune 3112) - (<= 3114 rune 3123) (<= 3125 rune 3129) (<= 3168 rune 3169) (<= 3205 rune 3212) (<= 3214 rune 3216) - (<= 3218 rune 3240) (<= 3242 rune 3251) (<= 3253 rune 3257) (= 3294 rune) (<= 3296 rune 3297) - (<= 3333 rune 3340) (<= 3342 rune 3344) (<= 3346 rune 3368) (<= 3370 rune 3385) (<= 3424 rune 3425) - (<= 3585 rune 3630) (= 3632 rune) (<= 3634 rune 3635) (<= 3648 rune 3653) (<= 3713 rune 3714) (= 3716 rune) - (<= 3719 rune 3720) (= 3722 rune) (= 3725 rune) (<= 3732 rune 3735) (<= 3737 rune 3743) (<= 3745 rune 3747) - (= 3749 rune) (= 3751 rune) (<= 3754 rune 3755) (<= 3757 rune 3758) (= 3760 rune) (<= 3762 rune 3763) (= 3773 rune) - (<= 3776 rune 3780) (<= 3904 rune 3911) (<= 3913 rune 3945) (<= 4256 rune 4293) (<= 4304 rune 4342) - (= 4352 rune) (<= 4354 rune 4355) (<= 4357 rune 4359) (= 4361 rune) (<= 4363 rune 4364) (<= 4366 rune 4370) - (= 4412 rune) (= 4414 rune) (= 4416 rune) (= 4428 rune) (= 4430 rune) (= 4432 rune) (<= 4436 rune 4437) (= 4441 rune) - (<= 4447 rune 4449) (= 4451 rune) (= 4453 rune) (= 4455 rune) (= 4457 rune) (<= 4461 rune 4462) (<= 4466 rune 4467) - (= 4469 rune) (= 4510 rune) (= 4520 rune) (= 4523 rune) (<= 4526 rune 4527) (<= 4535 rune 4536) (= 4538 rune) - (<= 4540 rune 4546) (= 4587 rune) (= 4592 rune) (= 4601 rune) (<= 7680 rune 7835) (<= 7840 rune 7929) - (<= 7936 rune 7957) (<= 7960 rune 7965) (<= 7968 rune 8005) (<= 8008 rune 8013) (<= 8016 rune 8023) - (= 8025 rune) (= 8027 rune) (= 8029 rune) (<= 8031 rune 8061) (<= 8064 rune 8116) (<= 8118 rune 8124) (= 8126 rune) - (<= 8130 rune 8132) (<= 8134 rune 8140) (<= 8144 rune 8147) (<= 8150 rune 8155) (<= 8160 rune 8172) - (<= 8178 rune 8180) (<= 8182 rune 8188) (= 8486 rune) (<= 8490 rune 8491) (= 8494 rune) (<= 8576 rune 8578) - (<= 12353 rune 12436) (<= 12449 rune 12538) (<= 12549 rune 12588) (<= 44032 rune 55203))) + ;; split into two ORs for LispWorks... + (or + (or (<= 65 rune 90) (<= 97 rune 122) (<= 192 rune 214) (<= 216 rune 246) (<= 248 rune 255) (<= 256 rune 305) + (<= 308 rune 318) (<= 321 rune 328) (<= 330 rune 382) (<= 384 rune 451) (<= 461 rune 496) (<= 500 rune 501) + (<= 506 rune 535) (<= 592 rune 680) (<= 699 rune 705) (= 902 rune) (<= 904 rune 906) (= 908 rune) + (<= 910 rune 929) (<= 931 rune 974) (<= 976 rune 982) (= 986 rune) (= 988 rune) (= 990 rune) (= 992 rune) + (<= 994 rune 1011) (<= 1025 rune 1036) (<= 1038 rune 1103) (<= 1105 rune 1116) (<= 1118 rune 1153) + (<= 1168 rune 1220) (<= 1223 rune 1224) (<= 1227 rune 1228) (<= 1232 rune 1259) (<= 1262 rune 1269) + (<= 1272 rune 1273) (<= 1329 rune 1366) (= 1369 rune) (<= 1377 rune 1414) (<= 1488 rune 1514) + (<= 1520 rune 1522) (<= 1569 rune 1594) (<= 1601 rune 1610) (<= 1649 rune 1719) (<= 1722 rune 1726) + (<= 1728 rune 1742) (<= 1744 rune 1747) (= 1749 rune) (<= 1765 rune 1766) (<= 2309 rune 2361) (= 2365 rune) + (<= 2392 rune 2401) (<= 2437 rune 2444) (<= 2447 rune 2448) (<= 2451 rune 2472) (<= 2474 rune 2480) + (= 2482 rune) (<= 2486 rune 2489) (<= 2524 rune 2525) (<= 2527 rune 2529) (<= 2544 rune 2545) + (<= 2565 rune 2570) (<= 2575 rune 2576) (<= 2579 rune 2600) (<= 2602 rune 2608) (<= 2610 rune 2611) + (<= 2613 rune 2614) (<= 2616 rune 2617) (<= 2649 rune 2652) (= 2654 rune) (<= 2674 rune 2676) + (<= 2693 rune 2699) (= 2701 rune) (<= 2703 rune 2705) (<= 2707 rune 2728) (<= 2730 rune 2736) + (<= 2738 rune 2739) (<= 2741 rune 2745) (= 2749 rune) (= 2784 rune) (<= 2821 rune 2828) (<= 2831 rune 2832) + (<= 2835 rune 2856) (<= 2858 rune 2864) (<= 2866 rune 2867) (<= 2870 rune 2873) (= 2877 rune) + (<= 2908 rune 2909) (<= 2911 rune 2913) (<= 2949 rune 2954) (<= 2958 rune 2960) (<= 2962 rune 2965) + (<= 2969 rune 2970) (= 2972 rune)) + (or (<= 2974 rune 2975) (<= 2979 rune 2980) (<= 2984 rune 2986) + (<= 2990 rune 2997) (<= 2999 rune 3001) (<= 3077 rune 3084) (<= 3086 rune 3088) (<= 3090 rune 3112) + (<= 3114 rune 3123) (<= 3125 rune 3129) (<= 3168 rune 3169) (<= 3205 rune 3212) (<= 3214 rune 3216) + (<= 3218 rune 3240) (<= 3242 rune 3251) (<= 3253 rune 3257) (= 3294 rune) (<= 3296 rune 3297) + (<= 3333 rune 3340) (<= 3342 rune 3344) (<= 3346 rune 3368) (<= 3370 rune 3385) (<= 3424 rune 3425) + (<= 3585 rune 3630) (= 3632 rune) (<= 3634 rune 3635) (<= 3648 rune 3653) (<= 3713 rune 3714) (= 3716 rune) + (<= 3719 rune 3720) (= 3722 rune) (= 3725 rune) (<= 3732 rune 3735) (<= 3737 rune 3743) (<= 3745 rune 3747) + (= 3749 rune) (= 3751 rune) (<= 3754 rune 3755) (<= 3757 rune 3758) (= 3760 rune) (<= 3762 rune 3763) (= 3773 rune) + (<= 3776 rune 3780) (<= 3904 rune 3911) (<= 3913 rune 3945) (<= 4256 rune 4293) (<= 4304 rune 4342) + (= 4352 rune) (<= 4354 rune 4355) (<= 4357 rune 4359) (= 4361 rune) (<= 4363 rune 4364) (<= 4366 rune 4370) + (= 4412 rune) (= 4414 rune) (= 4416 rune) (= 4428 rune) (= 4430 rune) (= 4432 rune) (<= 4436 rune 4437) (= 4441 rune) + (<= 4447 rune 4449) (= 4451 rune) (= 4453 rune) (= 4455 rune) (= 4457 rune) (<= 4461 rune 4462) (<= 4466 rune 4467) + (= 4469 rune) (= 4510 rune) (= 4520 rune) (= 4523 rune) (<= 4526 rune 4527) (<= 4535 rune 4536) (= 4538 rune) + (<= 4540 rune 4546) (= 4587 rune) (= 4592 rune) (= 4601 rune) (<= 7680 rune 7835) (<= 7840 rune 7929) + (<= 7936 rune 7957) (<= 7960 rune 7965) (<= 7968 rune 8005) (<= 8008 rune 8013) (<= 8016 rune 8023) + (= 8025 rune) (= 8027 rune) (= 8029 rune) (<= 8031 rune 8061) (<= 8064 rune 8116) (<= 8118 rune 8124) (= 8126 rune) + (<= 8130 rune 8132) (<= 8134 rune 8140) (<= 8144 rune 8147) (<= 8150 rune 8155) (<= 8160 rune 8172) + (<= 8178 rune 8180) (<= 8182 rune 8188) (= 8486 rune) (<= 8490 rune 8491) (= 8494 rune) (<= 8576 rune 8578) + (<= 12353 rune 12436) (<= 12449 rune 12538) (<= 12549 rune 12588) (<= 44032 rune 55203)))) (ideographic-rune-p (rune) (or (<= 19968 rune 40869) (= 12295 rune) (<= 12321 rune 12329))) Index: cxml/xml/xml-parse.lisp diff -u cxml/xml/xml-parse.lisp:1.3 cxml/xml/xml-parse.lisp:1.4 --- cxml/xml/xml-parse.lisp:1.3 Wed Apr 6 21:23:53 2005 +++ cxml/xml/xml-parse.lisp Wed Apr 20 21:58:07 2005 @@ -3004,8 +3004,10 @@ (elt octets pos) (incf pos))))) -(defmethod stream-read-sequence ((stream octet-input-stream) sequence - &optional (start 0) (end (length sequence))) +(defmethod stream-read-sequence + #-lispworks ((stream octet-input-stream) sequence + &optional (start 0) (end (length sequence))) + #+lispworks ((stream octet-input-stream) sequence start end) (with-slots (octets pos) stream (let* ((length (min (- end start) (- (length octets) pos))) (end1 (+ start length))

1 0

[closure-cvs] CVS update: cxml/test/xmlconf.lisp
by dlichteblau＠common-lisp.net 20 Apr '05

20 Apr '05

Update of /project/cxml/cvsroot/cxml/test In directory common-lisp.net:/tmp/cvs-serv1210/test Modified Files: xmlconf.lisp Log Message: LispWorks port (thanks to Edi Weitz) Date: Wed Apr 20 21:58:05 2005 Author: dlichteblau Index: cxml/test/xmlconf.lisp diff -u cxml/test/xmlconf.lisp:1.1.1.13 cxml/test/xmlconf.lisp:1.2 --- cxml/test/xmlconf.lisp:1.1.1.13 Sun Mar 13 19:02:50 2005 +++ cxml/test/xmlconf.lisp Wed Apr 20 21:58:03 2005 @@ -95,7 +95,7 @@ nfailed ntried nskipped))) (defmethod run-test :around (class pathname output description &rest args) - class pathname output args + (declare (ignore class pathname output args)) (handler-case (call-next-method) (serious-condition (c)

1 0