From: <cli...@li...> - 2005-04-25 03:15:07
|
Send clisp-cvs mailing list submissions to cli...@li... To subscribe or unsubscribe via the World Wide Web, visit https://lists.sourceforge.net/lists/listinfo/clisp-cvs or, via email, send a message with subject or body 'help' to cli...@li... You can reach the person managing the list at cli...@li... When replying, please edit your Subject line so it is more specific than "Re: Contents of clisp-cvs digest..." CLISP CVS commits for today Today's Topics: 1. clisp/src sequence.d,1.96,1.97 ChangeLog,1.4508,1.4509 (Sam Steingold) 2. clisp/tests conditions.tst,1.43,1.44 ChangeLog,1.340,1.341 (Sam Steingold) 3. clisp/src init.lisp,1.222,1.223 eval.d,1.196,1.197 ChangeLog,1.4509,1.4510 (Sam Steingold) 4. clisp/tests excepsit.tst,1.35,1.36 ChangeLog,1.341,1.342 (Sam Steingold) 5. clisp/src init.lisp,1.223,1.224 ChangeLog,1.4510,1.4511 (Sam Steingold) --__--__-- Message: 1 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src sequence.d,1.96,1.97 ChangeLog,1.4508,1.4509 Date: Sun, 24 Apr 2005 22:16:42 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21868/src Modified Files: sequence.d ChangeLog Log Message: (coerce_sequence): fixed STACK clean-up on !error_p Index: sequence.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/sequence.d,v retrieving revision 1.96 retrieving revision 1.97 diff -u -d -r1.96 -r1.97 --- sequence.d 5 Jan 2005 12:16:27 -0000 1.96 +++ sequence.d 24 Apr 2005 22:16:18 -0000 1.97 @@ -1059,7 +1059,7 @@ var object typdescr2 = (error_p ? valid_type(&STACK_0) : valid_type1(&STACK_0)); if (!error_p && nullp(typdescr2)) { /* result_type is not a sequence */ - VALUES1(nullobj); skipSTACK(1); return; + VALUES1(nullobj); skipSTACK(3); return; } pushSTACK(typdescr2); # Stackaufbau: seq1, result-type, typdescr2-len, typdescr2. Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4508 retrieving revision 1.4509 diff -u -d -r1.4508 -r1.4509 --- ChangeLog 22 Apr 2005 10:42:39 -0000 1.4508 +++ ChangeLog 24 Apr 2005 22:16:19 -0000 1.4509 @@ -1,3 +1,7 @@ +2005-04-24 Sam Steingold <sd...@gn...> + + * sequence.d (coerce_sequence): fixed STACK clean-up on !error_p + 2005-04-21 Bruno Haible <br...@cl...> * clos-genfun2a.lisp (safe-gf-methods): Avoid endless recursion also --__--__-- Message: 2 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/tests conditions.tst,1.43,1.44 ChangeLog,1.340,1.341 Date: Sun, 24 Apr 2005 22:16:20 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21868/tests Modified Files: conditions.tst ChangeLog Log Message: (coerce_sequence): fixed STACK clean-up on !error_p Index: conditions.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/conditions.tst,v retrieving revision 1.43 retrieving revision 1.44 diff -u -d -r1.43 -r1.44 --- conditions.tst 6 Mar 2005 16:03:17 -0000 1.43 +++ conditions.tst 24 Apr 2005 22:16:17 -0000 1.44 @@ -692,6 +692,20 @@ (symbol-value 'foo)) 1 +(block nil + (handler-bind ((type-error (lambda (c) + (return (list (type-error-expected-type c) + (type-error-datum c)))))) + (coerce '(1 2 3) 'integer))) +(INTEGER (1 2 3)) + +(block nil + (handler-bind ((type-error (lambda (c) + (return (list (type-error-expected-type c) + (type-error-datum c)))))) + (coerce '(1 2 3) '(integer 1)))) +((INTEGER 1) (1 2 3)) + ;; make-hash-table (flet ((mht (test) (make-hash-table :test test))) (check-use-value mht eql bazonk :test equalp)) t Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v retrieving revision 1.340 retrieving revision 1.341 diff -u -d -r1.340 -r1.341 --- ChangeLog 22 Apr 2005 10:43:17 -0000 1.340 +++ ChangeLog 24 Apr 2005 22:16:17 -0000 1.341 @@ -1,3 +1,7 @@ +2005-04-24 Sam Steingold <sd...@gn...> + + * conditions.tst: check some TYPE-ERRORs with COERCE + 2005-04-21 Bruno Haible <br...@cl...> * mop.tst: Add test that defmethod calls remove-method. --__--__-- Message: 3 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src init.lisp,1.222,1.223 eval.d,1.196,1.197 ChangeLog,1.4509,1.4510 Date: Sun, 24 Apr 2005 22:44:35 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3163/src Modified Files: init.lisp eval.d ChangeLog Log Message: prevent accidental EXT:! redefinition by users Index: init.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/init.lisp,v retrieving revision 1.222 retrieving revision 1.223 diff -u -d -r1.222 -r1.223 --- init.lisp 7 Mar 2005 22:07:50 -0000 1.222 +++ init.lisp 24 Apr 2005 22:44:29 -0000 1.223 @@ -578,8 +578,9 @@ (sys::%putd 'sys::check-redefinition (function sys::check-redefinition (lambda (symbol caller what) (let ((cur-file *current-source-file*) - ;; distinguish between undefined and defined at top-level - (old-file (getf (gethash symbol *documentation*) 'sys::file))) + (old-file ; distinguish between undefined and defined at top-level + (if (sys::subr-info symbol) + "C" (getf (gethash symbol *documentation*) 'sys::file)))) (unless (or custom:*suppress-check-redefinition* (equalp old-file cur-file) (and (pathnamep old-file) (pathnamep cur-file) Index: eval.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/eval.d,v retrieving revision 1.196 retrieving revision 1.197 diff -u -d -r1.196 -r1.197 --- eval.d 22 Apr 2005 10:32:39 -0000 1.196 +++ eval.d 24 Apr 2005 22:44:30 -0000 1.197 @@ -339,8 +339,10 @@ pushSTACK(fixnum(TheSubr(obj)->req_anz)); /* req-anz (req-nr) */ pushSTACK(fixnum(TheSubr(obj)->opt_anz)); /* opt-anz (opt-nr) */ pushSTACK(TheSubr(obj)->rest_flag == subr_norest ? NIL : T); /* rest-p */ - coerce_sequence(TheSubr(obj)->keywords,S(list),true); - pushSTACK(value1); /* keyword-vector as list */ + /* during bootstrap, before defseq.lisp is loaded, this may fail: */ + coerce_sequence(TheSubr(obj)->keywords,S(list),false); + /* keyword-vector as list (during bootstrap: vector) */ + pushSTACK(eq(value1,nullobj) ? TheSubr(obj)->keywords : value1); pushSTACK(TheSubr(obj)->key_flag == subr_key_allow ? T : NIL); /* allow-other-keys */ funcall(L(values),6); /* 6 values */ } Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4509 retrieving revision 1.4510 diff -u -d -r1.4509 -r1.4510 --- ChangeLog 24 Apr 2005 22:16:19 -0000 1.4509 +++ ChangeLog 24 Apr 2005 22:44:31 -0000 1.4510 @@ -1,3 +1,11 @@ +2005-04-22 Sam Steingold <sd...@gn...> + + prevent accidental EXT:! redefinition by users + * eval.d (SUBR-INFO): pass false to coerce_sequence() to avoid + bootstrap problems + * init.lisp (sys::check-redefinition): use SUBR-INFO to check + whether the function has been already defined in C + 2005-04-24 Sam Steingold <sd...@gn...> * sequence.d (coerce_sequence): fixed STACK clean-up on !error_p --__--__-- Message: 4 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/tests excepsit.tst,1.35,1.36 ChangeLog,1.341,1.342 Date: Sun, 24 Apr 2005 22:44:31 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3163/tests Modified Files: excepsit.tst ChangeLog Log Message: prevent accidental EXT:! redefinition by users Index: excepsit.tst =================================================================== RCS file: /cvsroot/clisp/clisp/tests/excepsit.tst,v retrieving revision 1.35 retrieving revision 1.36 diff -u -d -r1.35 -r1.36 --- excepsit.tst 27 Mar 2005 02:56:45 -0000 1.35 +++ excepsit.tst 24 Apr 2005 22:44:29 -0000 1.36 @@ -296,6 +296,9 @@ (defgeneric foo11 (x))) program-error +(defun ext:! (a b c) (+ a b c)) +PACKAGE-ERROR + (defun foo11 ((x y 1) z) (list x y z)) program-error Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v retrieving revision 1.341 retrieving revision 1.342 diff -u -d -r1.341 -r1.342 --- ChangeLog 24 Apr 2005 22:16:17 -0000 1.341 +++ ChangeLog 24 Apr 2005 22:44:29 -0000 1.342 @@ -1,3 +1,7 @@ +2005-04-22 Sam Steingold <sd...@gn...> + + * excepsit.tst: check that one cannot redefine EXT:! + 2005-04-24 Sam Steingold <sd...@gn...> * conditions.tst: check some TYPE-ERRORs with COERCE --__--__-- Message: 5 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src init.lisp,1.223,1.224 ChangeLog,1.4510,1.4511 Date: Sun, 24 Apr 2005 22:54:16 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9717/src Modified Files: init.lisp ChangeLog Log Message: (search-file): use MAKE-PRELIMINARY to avoid a warning Index: init.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/init.lisp,v retrieving revision 1.223 retrieving revision 1.224 diff -u -d -r1.223 -r1.224 --- init.lisp 24 Apr 2005 22:44:29 -0000 1.223 +++ init.lisp 24 Apr 2005 22:54:12 -0000 1.224 @@ -1433,12 +1433,14 @@ (setq *compiled-file-types* '("fas")) ;; for the time being the files don't have to be searched: -(defun search-file (filename extensions) - (mapcan #'(lambda (extension) - (let ((filename (merge-pathnames filename - (make-pathname :type extension)))) - (if (probe-file filename) (list filename) '()))) - extensions)) +(sys::%putd 'search-file + (sys::make-preliminary + (function search-file (lambda (filename extensions) + (mapcan #'(lambda (extension) + (let ((filename (merge-pathnames filename + (make-pathname :type extension)))) + (if (probe-file filename) (list filename) '()))) + extensions))))) (proclaim '(special *compile-verbose*)) (setq *compile-verbose* t) ; defined in spvw.d Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4510 retrieving revision 1.4511 diff -u -d -r1.4510 -r1.4511 --- ChangeLog 24 Apr 2005 22:44:31 -0000 1.4510 +++ ChangeLog 24 Apr 2005 22:54:12 -0000 1.4511 @@ -1,3 +1,7 @@ +2005-04-24 Sam Steingold <sd...@gn...> + + * init.lisp (search-file): use MAKE-PRELIMINARY to avoid a warning + 2005-04-22 Sam Steingold <sd...@gn...> prevent accidental EXT:! redefinition by users --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |