Menu
▾
▴
clisp-cvs digest, Vol 1 #662 - 5 msgs
|
From: <cli...@li...> - 2004-08-21 03:11: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/modules/rawsock configure,1.4,1.5 config.h.in,1.2,1.3 (Sam Steingold) 2. clisp/src/autoconf aclocal.m4,1.127,1.128 (Sam Steingold) 3. clisp/src trace.lisp,1.27,1.28 init.lisp,1.172,1.173 foreign1.lisp,1.55,1.56 documentation.lisp,1.12,1.13 defstruct.lisp,1.38,1.39 control.d,1.102,1.103 compiler.lisp,1.211,1.212 cmacros.lisp,1.11,1.12 clos-genfun3.lisp,1.19,1.20 ChangeLog,1.3444,1.3445 (Sam Steingold) 4. clisp/src eval.d,1.168,1.169 ChangeLog,1.3445,1.3446 (Sam Steingold) 5. clisp/src defs1.lisp,1.37,1.38 (Sam Steingold) --__--__-- Message: 1 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/modules/rawsock configure,1.4,1.5 config.h.in,1.2,1.3 Date: Fri, 20 Aug 2004 19:50:30 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/modules/rawsock In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13238/modules/rawsock Modified Files: configure config.h.in Log Message: regenerated Index: config.h.in =================================================================== RCS file: /cvsroot/clisp/clisp/modules/rawsock/config.h.in,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- config.h.in 23 Apr 2004 00:40:24 -0000 1.2 +++ config.h.in 20 Aug 2004 19:50:28 -0000 1.3 @@ -30,6 +30,15 @@ /* Define to 1 if you have the <poll.h> header file. */ #undef HAVE_POLL_H +/* Define to 1 if you have the `recvmsg' function. */ +#undef HAVE_RECVMSG + +/* Define to 1 if you have the `sendmsg' function. */ +#undef HAVE_SENDMSG + +/* Define to 1 if you have the `socketpair' function. */ +#undef HAVE_SOCKETPAIR + /* Define to 1 if you have the <stdint.h> header file. */ #undef HAVE_STDINT_H @@ -63,6 +72,12 @@ /* Define to 1 if you have the <unistd.h> header file. */ #undef HAVE_UNISTD_H +/* Define to 1 if you have the <winsock2.h> header file. */ +#undef HAVE_WINSOCK2_H + +/* Define to 1 if you have the <ws2tcpip.h> header file. */ +#undef HAVE_WS2TCPIP_H + /* Define to the address where bug reports for this package should be sent. */ #undef PACKAGE_BUGREPORT Index: configure =================================================================== RCS file: /cvsroot/clisp/clisp/modules/rawsock/configure,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- configure 7 May 2004 17:39:35 -0000 1.4 +++ configure 20 Aug 2004 19:50:28 -0000 1.5 @@ -2736,8 +2736,10 @@ + + for ac_header in sys/socket.h netinet/in.h arpa/inet.h linux/if_packet.h \ - sys/ioctl.h errno.h stropts.h poll.h sys/un.h + sys/ioctl.h errno.h stropts.h poll.h sys/un.h winsock2.h ws2tcpip.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` if eval "test \"\${$as_ac_Header+set}\" = set"; then @@ -3022,7 +3024,62 @@ { echo "$as_me:$LINENO: * RAWSOCK (Functions):" >&5 echo "$as_me: * RAWSOCK (Functions):" >&6;} -echo "$as_me:$LINENO: checking for library containing socket" >&5 +if test "$ac_cv_header_winsock2_h" = "yes"; then + echo "$as_me:$LINENO: checking for socket() in ws2_32" >&5 +echo $ECHO_N "checking for socket() in ws2_32... $ECHO_C" >&6 + LIBS=${LIBS}' -lws2_32'; + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +#include <winsock2.h> +int +main () +{ +socket(0,0,0) + ; + return 0; +} +_ACEOF +rm -f conftest.$ac_objext conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>conftest.er1 + ac_status=$? + grep -v '^ *+' conftest.er1 >conftest.err + rm -f conftest.er1 + cat conftest.err >&5 + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && + { ac_try='test -z "$ac_c_werror_flag" + || test ! -s conftest.err' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; } && + { ac_try='test -s conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then + ac_cv_search_socket=yes + echo "$as_me:$LINENO: result: yes" >&5 +echo "${ECHO_T}yes" >&6 +else + echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +ac_cv_search_socket=no + echo "$as_me:$LINENO: result: no" >&5 +echo "${ECHO_T}no" >&6 +fi +rm -f conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +else + echo "$as_me:$LINENO: checking for library containing socket" >&5 echo $ECHO_N "checking for library containing socket... $ECHO_C" >&6 if test "${ac_cv_search_socket+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 @@ -3148,13 +3205,19 @@ fi +fi if test "$ac_cv_search_socket" = "no"; then - { { echo "$as_me:$LINENO: error: cannot find SOCKET library" >&5 -echo "$as_me: error: cannot find SOCKET library" >&2;} + { { echo "$as_me:$LINENO: error: cannot find SOCKET library +See \`config.log' for more details." >&5 +echo "$as_me: error: cannot find SOCKET library +See \`config.log' for more details." >&2;} { (exit 1); exit 1; }; } fi -for ac_func in poll + + + +for ac_func in poll socketpair recvmsg sendmsg do as_ac_var=`echo "ac_cv_func_$ac_func" | $as_tr_sh` echo "$as_me:$LINENO: checking for $ac_func" >&5 --__--__-- Message: 2 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src/autoconf aclocal.m4,1.127,1.128 Date: Fri, 20 Aug 2004 19:50:27 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src/autoconf In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13238/src/autoconf Modified Files: aclocal.m4 Log Message: regenerated Index: aclocal.m4 =================================================================== RCS file: /cvsroot/clisp/clisp/src/autoconf/aclocal.m4,v retrieving revision 1.127 retrieving revision 1.128 diff -u -d -r1.127 -r1.128 --- aclocal.m4 5 Aug 2004 21:27:41 -0000 1.127 +++ aclocal.m4 20 Aug 2004 19:50:25 -0000 1.128 @@ -3007,7 +3007,7 @@ done ], [extern int ioctl ($cl_cv_proto_ioctl_args);]) AC_DEFINE_UNQUOTED(IOCTL_REQUEST_T,$cl_cv_proto_ioctl_arg2,[type of `request' in ioctl() declaration]) -if test $cl_cv_proto_ioctl_dots = yes; then +if test "$cl_cv_proto_ioctl_dots" = yes; then AC_DEFINE(IOCTL_DOTS,,[declaration of ioctl() needs dots]) else AC_DEFINE_UNQUOTED(IOCTL_ARGUMENT_T,$cl_cv_proto_ioctl_arg3,[type of `argument' in ioctl() declaration, if not superseded by dots]) --__--__-- Message: 3 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src trace.lisp,1.27,1.28 init.lisp,1.172,1.173 foreign1.lisp,1.55,1.56 documentation.lisp,1.12,1.13 defstruct.lisp,1.38,1.39 control.d,1.102,1.103 compiler.lisp,1.211,1.212 cmacros.lisp,1.11,1.12 clos-genfun3.lisp,1.19,1.20 ChangeLog,1.3444,1.3445 Date: Fri, 20 Aug 2004 20:49:18 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26347/src Modified Files: trace.lisp init.lisp foreign1.lisp documentation.lisp defstruct.lisp control.d compiler.lisp cmacros.lisp clos-genfun3.lisp ChangeLog Log Message: (CHECK-FUNCTION-NAME, CHECK-SYMBOL): change the order of arguments to match that of CHECK-TYPE Index: documentation.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/documentation.lisp,v retrieving revision 1.12 retrieving revision 1.13 diff -u -d -r1.12 -r1.13 --- documentation.lisp 19 Aug 2004 22:50:25 -0000 1.12 +++ documentation.lisp 20 Aug 2004 20:49:14 -0000 1.13 @@ -19,13 +19,13 @@ (documentation (sys::function-name x) 'function))) (:method ((x list) (doc-type (eql 'function))) (declare (ignore doc-type)) - (check-function-name 'documentation x) + (check-function-name x 'documentation) (if (and (fboundp x) (typep-class (fdefinition x) <standard-generic-function>)) (std-gf-documentation (fdefinition x)) (documentation (second x) 'setf))) (:method ((x list) (doc-type (eql 'compiler-macro))) (declare (ignore doc-type)) - (documentation (second (check-function-name 'documentation x)) + (documentation (second (check-function-name x 'documentation)) 'setf-compiler-macro)) (:method ((x symbol) (doc-type (eql 'function))) (if (and (fboundp x) (typep-class (fdefinition x) <standard-generic-function>)) @@ -109,15 +109,14 @@ (sys::%set-documentation (sys::function-name x) 'function new-value))) (:method (new-value (x list) (doc-type (eql 'function))) (declare (ignore doc-type)) - (check-function-name '(setf documentation) x) + (check-function-name x '(setf documentation)) (if (and (fboundp x) (typep-class (fdefinition x) <standard-generic-function>)) (setf (std-gf-documentation (fdefinition x)) new-value) (sys::%set-documentation (second x) 'setf new-value))) (:method (new-value (x list) (doc-type (eql 'compiler-macro))) (declare (ignore doc-type)) - (sys::%set-documentation - (second (check-function-name '(setf documentation) x)) - 'setf-compiler-macro new-value)) + (check-function-name x '(setf documentation)) + (sys::%set-documentation (second x) 'setf-compiler-macro new-value)) (:method (new-value (x symbol) (doc-type (eql 'function))) (if (and (fboundp x) (typep-class (fdefinition x) <standard-generic-function>)) (setf (std-gf-documentation (fdefinition x)) new-value) Index: foreign1.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/foreign1.lisp,v retrieving revision 1.55 retrieving revision 1.56 diff -u -d -r1.55 -r1.56 --- foreign1.lisp 20 Aug 2004 14:15:39 -0000 1.55 +++ foreign1.lisp 20 Aug 2004 20:49:14 -0000 1.56 @@ -375,7 +375,7 @@ name))) (defmacro DEF-C-TYPE (&whole whole name typespec) - (check-symbol (first whole) name) + (check-symbol name (first whole)) `(EVAL-WHEN (LOAD COMPILE EVAL) (PARSE-C-TYPE ',typespec ',name) ',name)) @@ -723,7 +723,7 @@ (to-c-name lisp-name))) (defmacro DEF-C-VAR (&whole whole name &rest options) - (check-symbol (first whole) name) + (check-symbol name (first whole)) (let* ((alist (parse-options options '(:name :type :read-only :alloc :library) whole)) @@ -854,7 +854,7 @@ `(DEF-CALL-OUT ,name ,@options (:LANGUAGE :STDC))) (defmacro DEF-CALL-OUT (&whole whole name &rest options) - (check-symbol (first whole) name) + (check-symbol name (first whole)) (let* ((alist (parse-options options '(:name :arguments :return-type :language :built-in :library) whole)) @@ -887,7 +887,7 @@ #+AFFI (defmacro DEF-LIB-CALL-OUT (&whole whole name library &rest options) - (check-symbol (first whole) name) + (check-symbol name (first whole)) (let* ((alist (parse-options options '(:name :offset :arguments :return-type) whole)) (parsed-function (parse-c-function (remove (assoc ':name alist) alist) whole)) @@ -910,7 +910,7 @@ `(DEF-CALL-IN ,name ,@options (:LANGUAGE :STDC))) (defmacro DEF-CALL-IN (&whole whole name &rest options) - (check-symbol (first whole) name) + (check-symbol name (first whole)) (let* ((alist (parse-options options '(:name :arguments :return-type :language) whole)) (c-name (foreign-name name (assoc ':name alist)))) @@ -1028,7 +1028,7 @@ (count-inarguments (sys::%record-ref obj 3))) (defmacro def-c-enum (&whole whole name &rest items) - (check-symbol (first whole) name) + (check-symbol name (first whole)) (let ((forms '()) (ht (make-hash-table :key-type 'fixnum :value-type 'symbol)) (next-value 0) (this-val 0)) (dolist (item items) Index: cmacros.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/cmacros.lisp,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- cmacros.lisp 19 Aug 2004 22:50:26 -0000 1.11 +++ cmacros.lisp 20 Aug 2004 20:49:15 -0000 1.12 @@ -43,13 +43,13 @@ (defun compiler-macro-function (name &optional environment) (declare (ignore environment)) - (check-function-name 'compiler-macro-function name) + (check-function-name name 'compiler-macro-function) (if (symbolp name) (get name 'compiler-macro) (get (second name) 'compiler-macro-setf))) (defun (setf compiler-macro-function) (newf name &optional environment) (declare (ignore environment)) - (check-function-name '(setf compiler-macro-function) name) + (check-function-name name '(setf compiler-macro-function)) (if (symbolp name) (setf (get name 'compiler-macro) newf) (setf (get (second name) 'compiler-macro-setf) newf))) Index: compiler.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/compiler.lisp,v retrieving revision 1.211 retrieving revision 1.212 diff -u -d -r1.211 -r1.212 --- compiler.lisp 20 Aug 2004 14:15:41 -0000 1.211 +++ compiler.lisp 20 Aug 2004 20:49:14 -0000 1.212 @@ -10426,7 +10426,7 @@ (defun compile (name &optional (definition nil svar) &aux (macro-flag nil) (trace-flag nil) (save-flag nil) #+clisp-debug (*form* definition)) - (check-function-name 'compile name) + (check-function-name name 'compile) (let ((symbol (get-funname-symbol name))) (if svar ;; Re-Definition of name as function. Index: clos-genfun3.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/clos-genfun3.lisp,v retrieving revision 1.19 retrieving revision 1.20 diff -u -d -r1.19 -r1.20 --- clos-genfun3.lisp 20 Aug 2004 14:15:42 -0000 1.19 +++ clos-genfun3.lisp 20 Aug 2004 20:49:15 -0000 1.20 @@ -196,7 +196,7 @@ ;;; DEFMETHOD (defmacro defmethod (funname &rest method-description) - (sys::check-function-name 'defmethod funname) + (sys::check-function-name funname 'defmethod) (multiple-value-bind (method-initargs-forms signature) (analyze-method-description 'defmethod funname method-description) `(LET () @@ -254,7 +254,7 @@ ;; (DEFMETHOD function-name qualifier* spec-lambda-list ...) (defmacro declaim-method (funname &rest method-description) - (sys::check-function-name 'declaim-method funname) + (sys::check-function-name funname 'declaim-method) (multiple-value-bind (method-initargs-forms signature) (analyze-method-description 'defmethod funname method-description) (declare (ignore method-initargs-forms)) @@ -270,7 +270,7 @@ ;; options: (option*) ;; --> signature, argument-precedence-order, method combination, method-forms, docstring (defun analyze-defgeneric (caller funname lambdalist options) - (sys::check-function-name caller funname) + (sys::check-function-name funname caller) ;; Parse the lambdalist: (analyze-defgeneric-lambdalist caller funname lambdalist) ;; Process the options: Index: init.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/init.lisp,v retrieving revision 1.172 retrieving revision 1.173 diff -u -d -r1.172 -r1.173 --- init.lisp 20 Aug 2004 14:15:39 -0000 1.172 +++ init.lisp 20 Aug 2004 20:49:14 -0000 1.173 @@ -1528,16 +1528,16 @@ (sys::make-macro (function check-symbol (lambda (form env) (declare (ignore env)) - (let ((caller (second form)) (name (third form))) + (let ((name (second form)) (caller (third form))) (list 'unless (list 'symbolp name) - (list 'setq name (list '%check-symbol caller name)))))))) + (list 'setq name (list '%check-symbol name caller)))))))) (sys::%putd 'check-function-name (sys::make-macro (function check-function-name (lambda (form env) (declare (ignore env)) - (let ((caller (second form)) (name (third form))) + (let ((name (second form)) (caller (third form))) (list 'unless (list 'function-name-p name) - (list 'setq name (list '%check-function-name caller name)))))))) + (list 'setq name (list '%check-function-name name caller)))))))) (sys::%putd 'defun ; preliminary: (sys::make-macro @@ -1551,7 +1551,7 @@ (let ((name (cadr form)) (lambdalist (caddr form)) (body (cdddr form))) - (check-symbol 'defun name) + (check-symbol name 'defun) (when (special-operator-p name) (error-of-type 'source-program-error :form name Index: defstruct.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/defstruct.lisp,v retrieving revision 1.38 retrieving revision 1.39 diff -u -d -r1.38 -r1.39 --- defstruct.lisp 20 Aug 2004 14:15:41 -0000 1.38 +++ defstruct.lisp 20 Aug 2004 20:49:14 -0000 1.39 @@ -543,7 +543,7 @@ ;; default-keyword-constructor (push (concat-pnames "MAKE-" name) constructor-option-list) (let ((arg (second option))) - (check-symbol 'defstruct arg) + (check-symbol arg 'defstruct) (push (if (atom (cddr option)) arg ; keyword-constructor @@ -557,12 +557,12 @@ (:COPIER (when (consp (cdr option)) (let ((arg (second option))) - (check-symbol 'defstruct arg) + (check-symbol arg 'defstruct) (setq copier-option arg)))) (:PREDICATE (when (consp (cdr option)) (let ((arg (second option))) - (check-symbol 'defstruct arg) + (check-symbol arg 'defstruct) (setq predicate-option arg)))) ((:INCLUDE :INHERIT) (if (null include-option) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.3444 retrieving revision 1.3445 diff -u -d -r1.3444 -r1.3445 --- ChangeLog 20 Aug 2004 19:44:04 -0000 1.3444 +++ ChangeLog 20 Aug 2004 20:49:15 -0000 1.3445 @@ -1,5 +1,13 @@ 2004-08-20 Sam Steingold <sd...@gn...> + * control.d (%CHECK-FUNCTION-NAME, %CHECK-SYMBOL): change the + order of arguments to match that of CHECK-TYPE + * init.lisp (CHECK-FUNCTION-NAME, CHECK-SYMBOL): ditto + * clos-genfun3.lisp, cmacros.lisp, compiler.lisp, defstruct.lisp: + * documentation.lisp, foreign1.lisp, trace.lisp: update callers + +2004-08-20 Sam Steingold <sd...@gn...> + * configure.in: added "sysre" option to optionally disable the use of system-wide regexp library Index: control.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/control.d,v retrieving revision 1.102 retrieving revision 1.103 diff -u -d -r1.102 -r1.103 --- control.d 20 Aug 2004 14:31:47 -0000 1.102 +++ control.d 20 Aug 2004 20:49:14 -0000 1.103 @@ -2266,22 +2266,20 @@ VALUES_IF(funnamep(arg)); } -/* (SYS::%CHECK-FUNCTION-NAME caller funname) +LISPFUNN(check_function_name,2) +{ /* (SYS::%CHECK-FUNCTION-NAME funname caller) checks whether the funname argument is a function name, giving the user the opportunity to correct it if it is not. Returns the corrected function name. */ -LISPFUNN(check_function_name,2) -{ - VALUES1(check_funname(source_program_error,STACK_1,STACK_0)); + VALUES1(check_funname(source_program_error,STACK_0,STACK_1)); skipSTACK(2); } -/* (SYS::%CHECK-SYMBOL caller symbol) +LISPFUNN(check_symbol,2) +{ /* (SYS::%CHECK-SYMBOL symbol caller) checks whether the symbol argument is a symbol, giving the user the opportunity to correct it if it is not. Returns the corrected symbol. */ -LISPFUNN(check_symbol,2) -{ - var gcv_object_t *sym_ = &STACK_0; - var gcv_object_t *caller_ = &STACK_1; + var gcv_object_t *sym_ = &STACK_1; + var gcv_object_t *caller_ = &STACK_0; while (!symbolp(*sym_)) { pushSTACK(NIL); /* no PLACE */ pushSTACK(*sym_); /* SOURCE-PROGRAM-ERROR slot FORM */ Index: trace.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/trace.lisp,v retrieving revision 1.27 retrieving revision 1.28 diff -u -d -r1.27 -r1.28 --- trace.lisp 19 Aug 2004 22:50:25 -0000 1.27 +++ trace.lisp 20 Aug 2004 20:49:13 -0000 1.28 @@ -172,7 +172,7 @@ (when (get (tracer-symb trr) 'sys::untraced-name) (setf (tracer-symb trr) (get (tracer-symb trr) 'sys::untraced-name)))) - (t (check-function-name caller funname) + (t (check-function-name funname caller) (go restart)))) (check-redefinition funname caller "function") trr) --__--__-- Message: 4 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src eval.d,1.168,1.169 ChangeLog,1.3445,1.3446 Date: Fri, 20 Aug 2004 20:55:46 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28118/src Modified Files: eval.d ChangeLog Log Message: (fehler_eval_zuviel): pass :FORM to ERROR-OF-TYPE SOURCE-PROGRAM-ERROR Index: eval.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/eval.d,v retrieving revision 1.168 retrieving revision 1.169 diff -u -d -r1.168 -r1.169 --- eval.d 20 Aug 2004 14:15:39 -0000 1.168 +++ eval.d 20 Aug 2004 20:55:43 -0000 1.169 @@ -3165,8 +3165,8 @@ # In EVAL: error, if too many arguments nonreturning_function(local, fehler_eval_zuviel, (object fun)) { var object form = STACK_(frame_form); # Form - pushSTACK(form); - pushSTACK(fun); + pushSTACK(form); /* SOURCE-PROGRAM-ERROR slot FORM */ + pushSTACK(form); pushSTACK(fun); /* ANSI CL 3.5.1.3. wants a PROGRAM-ERROR here. */ fehler(source_program_error, GETTEXT("EVAL: too many arguments given to ~S: ~S")); Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.3445 retrieving revision 1.3446 diff -u -d -r1.3445 -r1.3446 --- ChangeLog 20 Aug 2004 20:49:15 -0000 1.3445 +++ ChangeLog 20 Aug 2004 20:55:44 -0000 1.3446 @@ -89,7 +89,7 @@ (check_symbol_special, check_funname_replacement): pass :FORM to ERROR-OF-TYPE SOURCE-PROGRAM-ERROR * eval.d (parse_dd, get_closure, eval1, fehler_eval_zuwenig) - (fehler_eval_dotted): ditto + (fehler_eval_dotted, fehler_eval_zuviel): ditto * foreign1.lisp (DEF-C-VAR, flet/err): ditto * lambdalist.lisp (err-misplaced, err-invalid, analyze-lambdalist) (analyze-generic-function-lambdalist, analyze-defsetf-lambdalist) --__--__-- Message: 5 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src defs1.lisp,1.37,1.38 Date: Fri, 20 Aug 2004 21:14:21 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31517 Modified Files: defs1.lisp Log Message: (with-package-iterator): fixed a typo in the last patch Index: defs1.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/defs1.lisp,v retrieving revision 1.37 retrieving revision 1.38 diff -u -d -r1.37 -r1.38 --- defs1.lisp 20 Aug 2004 14:15:41 -0000 1.37 +++ defs1.lisp 20 Aug 2004 21:14:19 -0000 1.38 @@ -80,7 +80,7 @@ (defmacro with-package-iterator ((name pack-list &rest types) &body body) (unless types (error-of-type 'source-program-error - :form type ; == NIL + :form types ; == NIL (TEXT "missing symbol types (~S/~S/~S) in ~S") ':internal ':external ':inherited 'with-package-iterator)) (dolist (symboltype types) --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |