clisp-cvs Digest, Vol 27, Issue 39

View: New views

1 Messages — Rating Filter: Alert me

clisp-cvs Digest, Vol 27, Issue 39

by clisp-cvs-request :: Rate this Message:

Reply to Author | View Threaded | Show Only this Message

Send clisp-cvs mailing list submissions to
clisp-cvs@...

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
clisp-cvs-request@...

You can reach the person managing the list at
clisp-cvs-owner@...

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/tests type.tst,1.56,1.57 ChangeLog,1.572,1.573
(Sam Steingold)
2. clisp/utils clispload.lsp,1.55,1.56 (Sam Steingold)
3. clisp/modules/clx/new-clx clx.f,2.132,2.133 (Sam Steingold)
4. clisp/src ChangeLog,1.6413,1.6414 (Sam Steingold)
5. clisp/src condition.lisp,1.98,1.99 (Sam Steingold)
6. clisp/src misc.d,1.93,1.94 (Sam Steingold)
7. clisp/src ChangeLog,1.6414,1.6415 (Sam Steingold)
8. clisp/utils clispload.lsp,1.56,1.57 (Sam Steingold)
9. clisp/src ChangeLog, 1.6415, 1.6416 CodingStyle, 1.23, 1.24
lispbibl.d, 1.803, 1.804 (Sam Steingold)
10. clisp/src ChangeLog,1.6416,1.6417 eval.d,1.259,1.260
(Sam Steingold)

----------------------------------------------------------------------

Message: 1
Date: Tue, 22 Jul 2008 03:02:22 +0000
From: Sam Steingold <sds@...>
Subject: clisp/tests type.tst,1.56,1.57 ChangeLog,1.572,1.573
To: clisp-cvs@...
Message-ID: <E1KL89N-0003VK-7L@...>

Update of /cvsroot/clisp/clisp/tests
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv11975/tests

Modified Files:
type.tst ChangeLog
Log Message:
the sets of declaration and type names are disjoint, as per ANSI
(see http://www.lisp.org/HyperSpec/Body/dec_type.html)

Index: type.tst
===================================================================
RCS file: /cvsroot/clisp/clisp/tests/type.tst,v
retrieving revision 1.56
retrieving revision 1.57
diff -u -d -r1.56 -r1.57
--- type.tst 20 Jan 2008 04:04:42 -0000 1.56
+++ type.tst 22 Jul 2008 03:02:20 -0000 1.57
@@ -825,3 +825,49 @@
two-way-stream type-error unbound-slot unbound-variable
undefined-function unsigned-byte vector warning))
(ATOM BIT FIXNUM INTEGER NUMBER RATIONAL REAL SIGNED-BYTE T UNSIGNED-BYTE)
+
+
+;;; http://www.lisp.org/HyperSpec/Body/dec_type.html
+;;; A symbol cannot be both the name of a type and the name of a
+;;; declaration. Defining a symbol as the name of a class, structure,
+;;; condition, or type, when the symbol has been declared as a
+;;; declaration name, or vice versa, signals an error.
+(let ((sym (gensym)))
+ (proclaim `(declaration ,sym))
+ (eval `(deftype ,sym () t)))
+error
+
+(let ((sym (gensym)))
+ (proclaim `(declaration ,sym))
+ (eval `(defstruct ,sym a b c)))
+error
+
+(let ((sym (gensym)))
+ (proclaim `(declaration ,sym))
+ (eval `(defclass ,sym () (a b c))))
+error
+
+(let ((sym (gensym)))
+ (proclaim `(declaration ,sym))
+ (eval `(define-condition ,sym (condition) (a b c))))
+error
+
+(let ((sym (gensym)))
+ (eval `(deftype ,sym () t))
+ (proclaim `(declaration ,sym)))
+error
+
+(let ((sym (gensym)))
+ (eval `(defstruct ,sym a b c))
+ (proclaim `(declaration ,sym)))
+error
+
+(let ((sym (gensym)))
+ (eval `(defclass ,sym () (a b c)))
+ (proclaim `(declaration ,sym)))
+error
+
+(let ((sym (gensym)))
+ (eval `(define-condition ,sym (condition) (a b c)))
+ (proclaim `(declaration ,sym)))
+error

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/tests/ChangeLog,v
retrieving revision 1.572
retrieving revision 1.573
diff -u -d -r1.572 -r1.573
--- ChangeLog 21 Jul 2008 21:01:02 -0000 1.572
+++ ChangeLog 22 Jul 2008 03:02:20 -0000 1.573
@@ -1,5 +1,10 @@
2008-07-21 Sam Steingold <sds@...>

+ * type.tst: check that the sets of declaration and type names are
+ disjoint (see http://www.lisp.org/HyperSpec/Body/dec_type.html)
+
+2008-07-21 Sam Steingold <sds@...>
+
* streamslong.tst: add a test for bug #[ 2022362 ]: after a ((setf
stream-element-type) '(unsigned-byte 8)) after read-line on a :dos
stream an NL byte (10) is read from the stream

------------------------------

Message: 2
Date: Tue, 22 Jul 2008 03:02:22 +0000
From: Sam Steingold <sds@...>
Subject: clisp/utils clispload.lsp,1.55,1.56
To: clisp-cvs@...
Message-ID: <E1KL89N-0002ph-KF@...>

Update of /cvsroot/clisp/clisp/utils
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv11975/utils

Modified Files:
clispload.lsp
Log Message:
the sets of declaration and type names are disjoint, as per ANSI
(see http://www.lisp.org/HyperSpec/Body/dec_type.html)

Index: clispload.lsp
===================================================================
RCS file: /cvsroot/clisp/clisp/utils/clispload.lsp,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -d -r1.55 -r1.56
--- clispload.lsp 21 Jul 2008 17:57:47 -0000 1.55
+++ clispload.lsp 22 Jul 2008 03:02:20 -0000 1.56
@@ -180,11 +180,6 @@
;; The interaction between TRACE and generic functions needs to be fixed.
TRACE.13 TRACE.14

- ;; The interaction between PROCLAIM DECLARATION and
- ;; DEFTYPE/DEFSTRUCT/DEFCLASS needs to be fixed.
- DECLARATION.4 DECLARATION.5 DECLARATION.6 DECLARATION.7 DECLARATION.8
- DECLARATION.9 DECLARATION.10 DECLARATION.11
-
;; Requires a rewrite of parts of the pretty-printer.
PPRINT-TABULAR.6 PPRINT-TABULAR.7 PPRINT-TABULAR.8 PPRINT-TABULAR.9
PPRINT-TABULAR.10 PPRINT-TABULAR.11 PPRINT-TABULAR.12 PPRINT-TABULAR.13

------------------------------

Message: 3
Date: Tue, 22 Jul 2008 03:15:55 +0000
From: Sam Steingold <sds@...>
Subject: clisp/modules/clx/new-clx clx.f,2.132,2.133
To: clisp-cvs@...
Message-ID: <E1KL8M0-0007Ax-4P@...>

Update of /cvsroot/clisp/clisp/modules/clx/new-clx
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv16805/modules/clx/new-clx

Modified Files:
clx.f
Log Message:
(get_font_info_and_display): prefix *CANONICALIZE-ENCODING* with XLIB::
for bootstrap when is has not been exported yet

Index: clx.f
===================================================================
RCS file: /cvsroot/clisp/clisp/modules/clx/new-clx/clx.f,v
retrieving revision 2.132
retrieving revision 2.133
diff -u -d -r2.132 -r2.133
--- clx.f 17 Jul 2008 21:14:48 -0000 2.132
+++ clx.f 22 Jul 2008 03:15:49 -0000 2.133
@@ -1130,7 +1130,7 @@
strcat(whole,names[1]);
end_x_call();
pushSTACK(asciz_to_string(whole,GLO(misc_encoding)));
- pushSTACK(Symbol_value(`XLIB:*CANONICALIZE-ENCODING*`));
+ pushSTACK(Symbol_value(`XLIB::*CANONICALIZE-ENCODING*`));
pushSTACK(S(Ktest)); pushSTACK(S(equal));
funcall(`EXT:CANONICALIZE`,4);
pushSTACK(S(Kcharset)); pushSTACK(value1);

------------------------------

Message: 4
Date: Tue, 22 Jul 2008 03:15:51 +0000
From: Sam Steingold <sds@...>
Subject: clisp/src ChangeLog,1.6413,1.6414
To: clisp-cvs@...
Message-ID: <E1KL8M0-0006OB-7a@...>

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv16805/src

Modified Files:
ChangeLog
Log Message:
(get_font_info_and_display): prefix *CANONICALIZE-ENCODING* with XLIB::
for bootstrap when is has not been exported yet

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.6413
retrieving revision 1.6414
diff -u -d -r1.6413 -r1.6414
--- ChangeLog 22 Jul 2008 03:02:21 -0000 1.6413
+++ ChangeLog 22 Jul 2008 03:15:49 -0000 1.6414
@@ -1,5 +1,11 @@
2008-07-21 Sam Steingold <sds@...>

+ * modules/clx/new-clx/clx.f (get_font_info_and_display): prefix
+ *CANONICALIZE-ENCODING* with XLIB:: for bootstrap when is has not
+ been exported yet
+
+2008-07-21 Sam Steingold <sds@...>
+
the sets of declaration and type names are disjoint, as per ANSI
(see http://www.lisp.org/HyperSpec/Body/dec_type.html)
* condition.lisp (check-not-type, check-not-declaration): define

------------------------------

Message: 5
Date: Tue, 22 Jul 2008 14:40:31 +0000
From: Sam Steingold <sds@...>
Subject: clisp/src condition.lisp,1.98,1.99
To: clisp-cvs@...
Message-ID: <E1KLJ2X-000592-Fn@...>

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv7438/src

Modified Files:
condition.lisp
Log Message:
(check-not-type, check-not-declaration): put messages through TEXT

Index: condition.lisp
===================================================================
RCS file: /cvsroot/clisp/clisp/src/condition.lisp,v
retrieving revision 1.98
retrieving revision 1.99
diff -u -d -r1.98 -r1.99
--- condition.lisp 22 Jul 2008 03:02:20 -0000 1.98
+++ condition.lisp 22 Jul 2008 14:40:29 -0000 1.99
@@ -1847,7 +1847,7 @@
:interactive
(lambda () (prompt-for-new-value symbol 1 t))
(setq symbol new-value)))
- (error "~S: ~S defines a type, cannot be declared a ~S"
+ (error (TEXT "~S: ~S defines a type, cannot be declared a ~S")
caller symbol 'declaration)))))

(defun check-not-declaration (symbol caller)
@@ -1863,5 +1863,5 @@
:interactive
(lambda () (prompt-for-new-value symbol 1 t))
(setq symbol new-value)))
- (error "~S: ~S names a ~S, cannot name a type"
+ (error (TEXT "~S: ~S names a ~S, cannot name a type")
caller symbol 'declaration))))

------------------------------

Message: 6
Date: Tue, 22 Jul 2008 15:23:53 +0000
From: Sam Steingold <sds@...>
Subject: clisp/src misc.d,1.93,1.94
To: clisp-cvs@...
Message-ID: <E1KLJiW-0000Jp-QF@...>

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv23351/src

Modified Files:
misc.d
Log Message:
(C)year

Index: misc.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/misc.d,v
retrieving revision 1.93
retrieving revision 1.94
diff -u -d -r1.93 -r1.94
--- misc.d 31 May 2008 14:06:37 -0000 1.93
+++ misc.d 22 Jul 2008 15:23:51 -0000 1.94
@@ -1,7 +1,7 @@
/*
* Miscellaneous CLISP functions
* Bruno Haible 1990-2008
- * Sam Steingold 1999-2007
+ * Sam Steingold 1999-2008
*/

#include "lispbibl.c"

------------------------------

Message: 7
Date: Tue, 22 Jul 2008 15:26:55 +0000
From: Sam Steingold <sds@...>
Subject: clisp/src ChangeLog,1.6414,1.6415
To: clisp-cvs@...
Message-ID: <E1KLJlQ-0001yT-7n@...>

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv24553/src

Modified Files:
ChangeLog
Log Message:
(*expected-failures*): drop tests that we pass

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.6414
retrieving revision 1.6415
diff -u -d -r1.6414 -r1.6415
--- ChangeLog 22 Jul 2008 03:15:49 -0000 1.6414
+++ ChangeLog 22 Jul 2008 15:26:51 -0000 1.6415
@@ -1,3 +1,7 @@
+2008-07-22 Sam Steingold <sds@...>
+
+ * utils/clispload.lsp (*expected-failures*): drop tests that we pass
+
2008-07-21 Sam Steingold <sds@...>

* modules/clx/new-clx/clx.f (get_font_info_and_display): prefix

------------------------------

Message: 8
Date: Tue, 22 Jul 2008 15:26:55 +0000
From: Sam Steingold <sds@...>
Subject: clisp/utils clispload.lsp,1.56,1.57
To: clisp-cvs@...
Message-ID: <E1KLJlQ-0007J8-9M@...>

Update of /cvsroot/clisp/clisp/utils
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv24553/utils

Modified Files:
clispload.lsp
Log Message:
(*expected-failures*): drop tests that we pass

Index: clispload.lsp
===================================================================
RCS file: /cvsroot/clisp/clisp/utils/clispload.lsp,v
retrieving revision 1.56
retrieving revision 1.57
diff -u -d -r1.56 -r1.57
--- clispload.lsp 22 Jul 2008 03:02:20 -0000 1.56
+++ clispload.lsp 22 Jul 2008 15:26:53 -0000 1.57
@@ -85,10 +85,6 @@
;; None of these approaches is perfect: Either you cannot assume that
;; conversion from integer to floating-point always works, or you cannot
;; assume that conversion from floating-point to integer always works.
- BIGNUM.FLOAT.COMPARE.1A BIGNUM.FLOAT.COMPARE.1B BIGNUM.FLOAT.COMPARE.2A
- BIGNUM.FLOAT.COMPARE.2B BIGNUM.FLOAT.COMPARE.3A BIGNUM.FLOAT.COMPARE.3B
- BIGNUM.FLOAT.COMPARE.4A BIGNUM.FLOAT.COMPARE.4B BIGNUM.FLOAT.COMPARE.5A
- BIGNUM.FLOAT.COMPARE.5B BIGNUM.FLOAT.COMPARE.6A BIGNUM.FLOAT.COMPARE.6B
BIGNUM.FLOAT.COMPARE.7 BIGNUM.FLOAT.COMPARE.8

;; In CLISP (atan 1L0) is more than long-float-epsilon apart from (/ pi 4).
@@ -100,28 +96,7 @@

;; CLISP supports complex numbers with realpart and imagpart of different
;; types.
- COMPLEX.2 COMPLEX.4 COMPLEX.5 IMAGPART.4
-
- ;; Paul Dietz assumes that the classes STREAM and CONDITION are disjoint.
- ;; In CLISP they are not, because the user can create subclasses inheriting
- ;; from FUNDAMENTAL-STREAM and any other class with metaclass STANDARD-CLASS.
- ;; ANSI CL 4.2.2.(1) allows such classes.
- TYPES.7B TYPES.7C
-
- ;; Paul Dietz assumes that the class STREAM is disjoint from user-defined
- ;; classes with metaclass STANDARD-CLASS.
- ;; In CLISP this is not the case, because the user can create subclasses
- ;; inheriting from FUNDAMENTAL-STREAM and any other class with metaclass
- ;; STANDARD-CLASS. ANSI CL 4.2.2. allows such classes.
- USER-CLASS-DISJOINTNESS
-
- ;; Paul Dietz assumes that two user-defined classes with metaclass
- ;; STANDARD-CLASS that don't inherit from each other are disjoint.
- ;; In CLISP this is not the case, because the user can create subclasses
- ;; inheriting from both classes. ANSI CL 4.2.2.(3) allows such classes.
- ;; We don't want SUBTYPEP to depend on the existence or absence of
- ;; subclasses.
- USER-CLASS-DISJOINTNESS-2 TAC-3.16
+ COMPLEX.2 COMPLEX.4 COMPLEX.5

;; Paul Dietz assumes that when a WITH-INPUT-FROM-STRING form terminates
;; through a transfer of control, the index place is not updated.
@@ -131,9 +106,8 @@
;; Paul Dietz assumes that binding *PRINT-READABLY* to T has no effect on
;; how integers are printed.
;; In CLISP *PRINT-READABLY* = T implies the effects of *PRINT-RADIX* = T.
- WRITE.2 WRITE.3 WRITE.4 WRITE.5 WRITE.6 WRITE.7 PRINT.2 PRINT.3 PPRINT.2
- PPRINT.3 PRIN1.2 PRIN1.3 WRITE-TO-STRING.2 WRITE-TO-STRING.3
- WRITE-TO-STRING.4 PRIN1-TO-STRING.2
+ PRINT.2 PRINT.3 PPRINT.2 PPRINT.3 PRIN1.2 PRIN1.3
+ WRITE-TO-STRING.2 WRITE-TO-STRING.3 WRITE-TO-STRING.4 PRIN1-TO-STRING.2

;; Paul Dietz assumes that structure objects without slots are printed like
;; atoms.
@@ -159,10 +133,8 @@
;; CLISP treats all gap types equally.
FORMAT.JUSTIFY.8

- ;; Paul Dietz assumes that FORMAT ~V[ consumes two arguments.
- ;; However, ANSI CL 22.3.7.2. says that "the parameter is used instead of
- ;; an argument"; so only one argument is consumed (by the V, not by ~[).
- FORMAT.COND.14 FORMATTER.COND.14 |FORMAT.COND:.7| |FORMATTER.COND:.7|
+ ;; CLISP bugs
+ FORMATTER.COND.14 |FORMATTER.COND:.7|

;; Paul Dietz assumes that the reader constructs an array of element type T
;; for #1a"abcd" and #1a#*000110. This could be what ANSI CL 2.4.8.12 is
@@ -234,8 +206,7 @@
FORMAT./.12 FORMAT./.13 FORMAT./.14 FORMAT./.15 FORMAT./.16 FORMAT./.17
FORMAT./.18 |FORMAT.:T.5| |FORMAT.:T.5A| |FORMAT.:T.7| |FORMAT.:T.8|
|FORMAT.:T.9| |FORMAT.:T.10| |FORMAT.:T.12| |FORMAT.:T.ERROR.1|
- |FORMAT.:T.ERROR.2| |FORMAT.:T.ERROR.3| |FORMAT.:@T.1| |FORMAT.:@T.1A|
- |FORMAT.:@T.1B| |FORMAT.:@T.1C| |FORMAT.:@T.1D| |FORMAT.:@T.2| |FORMAT.:@T.3|
+ |FORMAT.:T.ERROR.2| |FORMAT.:T.ERROR.3| |FORMAT.:@T.2| |FORMAT.:@T.3|
|FORMAT.:@T.4| |FORMAT.:@T.5| FORMAT.JUSTIFY.ERROR.W.1
FORMAT.JUSTIFY.ERROR.W.2 FORMAT.JUSTIFY.ERROR.W.3 FORMAT.JUSTIFY.ERROR._.1
FORMAT.JUSTIFY.ERROR._.2 FORMAT.JUSTIFY.ERROR._.3 FORMAT.JUSTIFY.ERROR.I.1

------------------------------

Message: 9
Date: Tue, 22 Jul 2008 16:07:22 +0000
From: Sam Steingold <sds@...>
Subject: clisp/src ChangeLog, 1.6415, 1.6416 CodingStyle, 1.23, 1.24
lispbibl.d, 1.803, 1.804
To: clisp-cvs@...
Message-ID: <E1KLKOY-0006TI-QR@...>

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv7187/src

Modified Files:
ChangeLog CodingStyle lispbibl.d
Log Message:
fix bug #[ 2011096 ]: unicode in comments causes compile errors when LANG=ja_JP.eucJP

Index: CodingStyle
===================================================================
RCS file: /cvsroot/clisp/clisp/src/CodingStyle,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -d -r1.23 -r1.24
--- CodingStyle 8 May 2008 02:28:32 -0000 1.23
+++ CodingStyle 22 Jul 2008 16:07:19 -0000 1.24
@@ -166,6 +166,18 @@
Remember: "fehler" == "error"; "zustand" == "state"
(this is where the 'z' suffix often comes from).

+Please avoid "clever" tricks with Unicode in comments.
+E.g., using #\SUBSET_OF_OR_EQUAL_TO (Unicode #x2286) instead of the
+plain words "subclass of" or #\FULLWIDTH_SOLIDUS (Unicode #xff0f) &
+#\FULLWIDTH_ASTERISK (Unicode #xff0a) to emulate nested C comments
+breaks compilation in some language environments:
+$ LANG=ja_JP.eucJP make clisp.h
+...
+../src/lispbibl.d:1028: error: stray '\217' in program
+...
+Remember, ASCII rules!
+
+
Variable names
--------------

Index: lispbibl.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/lispbibl.d,v
retrieving revision 1.803
retrieving revision 1.804
diff -u -d -r1.803 -r1.804
--- lispbibl.d 16 Jul 2008 15:12:36 -0000 1.803
+++ lispbibl.d 22 Jul 2008 16:07:19 -0000 1.804
@@ -20,7 +20,7 @@
SAFETY={0,1,2,3}
Exploit GCC global register variables:
USE_GCC_REGISTER_VARIABLES
- Debugging (turned on by --with-debug configure option):
+ Debugging (turned on by the --with-debug configure option):
DEBUG_GCSAFETY (requires G++)
DEBUG_OS_ERROR
DEBUG_SPVW
@@ -1025,7 +1025,7 @@
- maygc, if (1) all callers must assume the worst case: that it triggers GC,
and (2) the function uses only the 'object's passed as arguments and
on the STACK, but no objects stored in other non-GCsafe locations.
- - ï¼ï¼maygcï¼ï¼ otherwise. If (1) is not fulfilled, the functions begins
+ - / * maygc * / otherwise. If (1) is not fulfilled, the functions begins
with an appropriate GCTRIGGER_IF statement. If (2) is not
fulfilled, the GCTRIGGER call needs to mention all other
non-GCsafe locations whose values are used by the function,
@@ -6504,7 +6504,7 @@
gcv_object_t slotdef_allocation _attribute_aligned_object_;
gcv_object_t slotdef_inheritable_initer _attribute_aligned_object_;
gcv_object_t slotdef_inheritable_doc _attribute_aligned_object_;
- /* from here on only for class â <effective-slot-definition> */
+ /* from here on only for subclasses of <effective-slot-definition> */
gcv_object_t slotdef_location _attribute_aligned_object_;
gcv_object_t slotdef_efm_svuc _attribute_aligned_object_;
gcv_object_t slotdef_efm_ssvuc _attribute_aligned_object_;
@@ -6520,7 +6520,7 @@
gcv_object_t direct_methods _attribute_aligned_object_; /* set of methods that use this specializer */
gcv_object_t classname _attribute_aligned_object_; /* a symbol */
gcv_object_t direct_subclasses _attribute_aligned_object_; /* weak-list or weak-hash-table of all direct subclasses */
- /* from here on only for metaclass â <defined-class> */
+ /* from here on only for subclasses of <defined-class> */
gcv_object_t direct_superclasses _attribute_aligned_object_; /* direct superclasses */
gcv_object_t all_superclasses _attribute_aligned_object_; /* all superclasses, including itself */
gcv_object_t precedence_list _attribute_aligned_object_; /* ordered list of all superclasses */
@@ -6532,13 +6532,13 @@
gcv_object_t documentation _attribute_aligned_object_; /* string or NIL */
gcv_object_t listeners _attribute_aligned_object_; /* list of objects to be notified upon a change */
gcv_object_t initialized _attribute_aligned_object_; /* describes which parts of the class are initialized */
- /* from here on only for metaclass â <standard-class> or metaclass â <funcallable-standard-class> or metaclass â <structure-class> */
+ /* from here on only for subclasses of <standard-class> or <funcallable-standard-class> or <structure-class> */
gcv_object_t subclass_of_stablehash_p _attribute_aligned_object_; /* true if <standard-stablehash> or <structure-stablehash> is among the superclasses */
gcv_object_t generic_accessors _attribute_aligned_object_;
gcv_object_t direct_accessors _attribute_aligned_object_;
gcv_object_t valid_initargs_from_slots _attribute_aligned_object_;
gcv_object_t instance_size _attribute_aligned_object_;
- /* from here on only for metaclass â <standard-class> or metaclass â <funcallable-standard-class> */
+ /* from here on only for subclasses of <standard-class> or <funcallable-standard-class> */
gcv_object_t current_version _attribute_aligned_object_; /* most recent class-version, points back to this class */
gcv_object_t funcallablep _attribute_aligned_object_;
gcv_object_t fixed_slot_locations _attribute_aligned_object_;
@@ -6546,7 +6546,7 @@
gcv_object_t direct_instance_specializers _attribute_aligned_object_;
gcv_object_t finalized_direct_subclasses _attribute_aligned_object_; /* weak-list or weak-hash-table of all finalized direct subclasses */
gcv_object_t prototype _attribute_aligned_object_; /* class prototype - an instance or NIL */
- /* from here on only for metaclass â <standard-class> */
+ /* from here on only for subclasses of <standard-class> */
gcv_object_t other[unspecified] _attribute_aligned_object_;
} * Class;

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.6415
retrieving revision 1.6416
diff -u -d -r1.6415 -r1.6416
--- ChangeLog 22 Jul 2008 15:26:51 -0000 1.6415
+++ ChangeLog 22 Jul 2008 16:07:19 -0000 1.6416
@@ -1,5 +1,10 @@
2008-07-22 Sam Steingold <sds@...>

+ * lispbibl.d: fix bug #[ 2011096 ]: unicode in comments causes
+ compile errors when LANG=ja_JP.eucJP
+
+2008-07-22 Sam Steingold <sds@...>
+
* utils/clispload.lsp (*expected-failures*): drop tests that we pass

2008-07-21 Sam Steingold <sds@...>

------------------------------

Message: 10
Date: Tue, 22 Jul 2008 17:02:23 +0000
From: Sam Steingold <sds@...>
Subject: clisp/src ChangeLog,1.6416,1.6417 eval.d,1.259,1.260
To: clisp-cvs@...
Message-ID: <E1KLLFp-0001L2-PF@...>

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv27762/src

Modified Files:
ChangeLog eval.d
Log Message:
(SUBR-INFO): use STACK_to_mv instead of L(values)

Index: eval.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/eval.d,v
retrieving revision 1.259
retrieving revision 1.260
diff -u -d -r1.259 -r1.260
--- eval.d 16 Jul 2008 21:01:21 -0000 1.259
+++ eval.d 22 Jul 2008 17:02:21 -0000 1.260
@@ -389,7 +389,7 @@
/* keyword-vector as list (during bootstrap: vector) */
pushSTACK(eq(value1,nullobj) ? (object)TheSubr(obj)->keywords : value1);
pushSTACK(TheSubr(obj)->key_flag == subr_key_allow ? T : NIL); /* allow-other-keys */
- funcall(L(values),6); /* 6 values */
+ STACK_to_mv(6); /* 6 values */
}

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.6416
retrieving revision 1.6417
diff -u -d -r1.6416 -r1.6417
--- ChangeLog 22 Jul 2008 16:07:19 -0000 1.6416
+++ ChangeLog 22 Jul 2008 17:02:21 -0000 1.6417
@@ -1,5 +1,9 @@
2008-07-22 Sam Steingold <sds@...>

+ * eval.d (SUBR-INFO): use STACK_to_mv instead of L(values)
+
+2008-07-22 Sam Steingold <sds@...>
+
* lispbibl.d: fix bug #[ 2011096 ]: unicode in comments causes
compile errors when LANG=ja_JP.eucJP

------------------------------

-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/

------------------------------

_______________________________________________
clisp-cvs mailing list
clisp-cvs@...
https://lists.sourceforge.net/lists/listinfo/clisp-cvs

End of clisp-cvs Digest, Vol 27, Issue 39
*****************************************

-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
clisp-devel mailing list
clisp-devel@...
https://lists.sourceforge.net/lists/listinfo/clisp-devel