Menu
▾
▴
clisp-cvs digest, Vol 1 #927 - 8 msgs
|
From: <cli...@li...> - 2005-01-26 05:48:43
|
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 ChangeLog,1.4148,1.4149 (Sam Steingold) 2. clisp/doc impissue.xml,1.17,1.18 (Sam Steingold) 3. clisp/src install.lisp,1.12,1.13 (Sam Steingold) 4. clisp/src arilev1.d,1.6,1.7 (Bruno Haible) 5. clisp/src time.d,1.45,1.46 (Sam Steingold) 6. clisp/src install.lisp,1.13,1.14 ChangeLog,1.4149,1.4150 (Sam Steingold) 7. clisp/src install.lisp,1.14,1.15 ChangeLog,1.4150,1.4151 (Sam Steingold) 8. clisp/src stream.d,1.499,1.500 ChangeLog,1.4151,1.4152 (Sam Steingold) --__--__-- Message: 1 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src ChangeLog,1.4148,1.4149 Date: Tue, 25 Jan 2005 14:36:28 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32199/src Modified Files: ChangeLog Log Message: formatting Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4148 retrieving revision 1.4149 diff -u -d -r1.4148 -r1.4149 --- ChangeLog 25 Jan 2005 10:04:05 -0000 1.4148 +++ ChangeLog 25 Jan 2005 14:36:23 -0000 1.4149 @@ -5,15 +5,16 @@ 2005-01-24 Bruno Haible <br...@cl...> - * stream.d (read_byte, wr_ch_unbuffered_unix, - wr_ch_array_unbuffered_unix, wr_ch_unbuffered_mac, - wr_ch_array_unbuffered_mac, wr_ch_unbuffered_dos, - wr_ch_array_unbuffered_dos, wr_ch_buffered_unix, - wr_ch_array_buffered_unix, wr_ch_buffered_mac, - wr_ch_array_buffered_mac, wr_ch_buffered_dos, wr_ch_array_buffered_dos): - Don't assume that when the input of Encoding_wcstombs is nonempty, - the output is nonempty as well. For example, glibc converts #\U000E0000 - to an empty multibyte sequence for most encodings. + * stream.d (read_byte, wr_ch_unbuffered_unix) + (wr_ch_array_unbuffered_unix, wr_ch_unbuffered_mac) + (wr_ch_array_unbuffered_mac, wr_ch_unbuffered_dos) + (wr_ch_array_unbuffered_dos, wr_ch_buffered_unix) + (wr_ch_array_buffered_unix, wr_ch_buffered_mac) + (wr_ch_array_buffered_mac, wr_ch_buffered_dos) + (wr_ch_array_buffered_dos): Don't assume that when the input of + Encoding_wcstombs is nonempty, the output is nonempty as well. + For example, glibc converts #\U000E0000 to an empty multibyte + sequence for most encodings. Reported by Pascal Bourguignon. 2005-01-24 Bruno Haible <br...@cl...> @@ -37,8 +38,8 @@ 2005-01-24 Bruno Haible <br...@cl...> - * i18n/gettext.c (do_gettext, do_ngettext): Don't define if GNU_GETTEXT - is not defined. Needed for platforms without gettext(). + * i18n/gettext.c (do_gettext, do_ngettext): Don't define if + GNU_GETTEXT is not defined. Needed for platforms without gettext(). * makemake.in (BASE_MODULES): Add i18n always. 2005-01-22 Bruno Haible <br...@cl...> @@ -67,8 +68,8 @@ Implement the scope of free SPECIAL declarations as ANSI CL 3.3.4 specifies it. ANSI CL issue <DECLARATION-SCOPE:NO-HOISTING>. - * compiler.lisp (c-LAMBDABODY,c-LET/LET*, c-MULTIPLE-VALUE-BIND, - c-FUNCALL-INLINE): Call push-specials immediately before + * compiler.lisp (c-LAMBDABODY,c-LET/LET*, c-MULTIPLE-VALUE-BIND) + (c-FUNCALL-INLINE): Call push-specials immediately before compiling the body-forms, not at the beginning. 2005-01-24 Sam Steingold <sd...@gn...> @@ -9194,7 +9195,7 @@ * defstruct.lisp (ds-accessor-name): New function. (ds-make-accessors, ds-make-defsetfs): Use it. -2005-04-15 Bruno Haible <br...@cl...> +2004-04-15 Bruno Haible <br...@cl...> * clos-slotdef1.lisp (*<slot-definition>-...-location*): New constants. (slot-definition-...): Use them. --__--__-- Message: 2 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/doc impissue.xml,1.17,1.18 Date: Tue, 25 Jan 2005 14:36:41 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32305/doc Modified Files: impissue.xml Log Message: iss092-yes Index: impissue.xml =================================================================== RCS file: /cvsroot/clisp/clisp/doc/impissue.xml,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- impissue.xml 1 Apr 2004 10:20:09 -0000 1.17 +++ impissue.xml 25 Jan 2005 14:36:39 -0000 1.18 @@ -102,7 +102,7 @@ <varlistentry id="iss089"><term><ulink url="&clhs;/Issues/iss089.html">DATA-IO:ADD-SUPPORT</ulink></term>&yes;</varlistentry> <varlistentry id="iss090"><term><ulink url="&clhs;/Issues/iss090.html">DATA-TYPES-HIERARCHY-UNDERSPECIFIED</ulink></term>&yes;</varlistentry> <varlistentry id="iss091"><term><ulink url="&clhs;/Issues/iss091.html">DEBUGGER-HOOK-VS-BREAK:CLARIFY</ulink></term>&yes;</varlistentry> - <varlistentry id="iss092"><term><ulink url="&clhs;/Issues/iss092.html">DECLARATION-SCOPE:NO-HOISTING</ulink></term>&no;</varlistentry> + <varlistentry id="iss092"><term><ulink url="&clhs;/Issues/iss092.html">DECLARATION-SCOPE:NO-HOISTING</ulink></term>&yes;</varlistentry> <varlistentry id="iss093"><term><ulink url="&clhs;/Issues/iss093.html">DECLARE-ARRAY-TYPE-ELEMENT-REFERENCES:RESTRICTIVE</ulink></term>&yes;</varlistentry> <varlistentry id="iss094"><term><ulink url="&clhs;/Issues/iss094.html">DECLARE-FUNCTION-AMBIGUITY:DELETE-FTYPE-ABBREVIATION</ulink></term>&yes;</varlistentry> <varlistentry id="iss095"><term><ulink url="&clhs;/Issues/iss095.html">DECLARE-MACROS:FLUSH</ulink></term>&yes;</varlistentry> --__--__-- Message: 3 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src install.lisp,1.12,1.13 Date: Tue, 25 Jan 2005 15:23:05 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12134/src Modified Files: install.lisp Log Message: comments Index: install.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/install.lisp,v retrieving revision 1.12 retrieving revision 1.13 diff -u -d -r1.12 -r1.13 --- install.lisp 16 Aug 2004 21:06:12 -0000 1.12 +++ install.lisp 25 Jan 2005 15:23:03 -0000 1.13 @@ -1,5 +1,6 @@ -;; win32 CLISP installation -;; (c) 2001-2002 Sam Steingold, released as part of CLISP under GNU GPL. +;;; win32 CLISP installation +;;; Copyright (C) 2001-2005 Sam Steingold, +;;; released as a part of CLISP under GNU GPL. ;; load this file in the directory where your CLISP distribution is located ;; - to set the Registry appropriately --__--__-- Message: 4 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src arilev1.d,1.6,1.7 Date: Tue, 25 Jan 2005 16:42:41 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31851 Modified Files: arilev1.d Log Message: Translate most comments. Index: arilev1.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/arilev1.d,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- arilev1.d 16 May 2004 17:19:00 -0000 1.6 +++ arilev1.d 25 Jan 2005 16:42:39 -0000 1.7 @@ -1,25 +1,26 @@ -# Arithmetik, Level 1 -# operiert auf Digit Sequences (DS) und Unsigned Digit Sequences (UDS). +# Arithmetic, Level 1 +# operates on Digit Sequences (DS) and Unsigned Digit Sequences (UDS). -# Aus LISPBIBL.D importiere: -# intDsize Anzahl Bits in einem Digit -# uintD, sintD Integer-Typen für ein Digit +# From LISPBIBL.D this file imports: +# intDsize number of bits in a digit +# uintD, sintD integer types for a digit # log2_intDsize log2(intDsize) -# HAVE_DD Flag, das anzeigt, ob ein Integertyp für Doppel-Digits da ist -# intDDsize Anzahl Bits in einem Doppel-Digit -# uintDD,sintDD Integer-Typen für ein Doppel-Digit +# HAVE_DD flag signalling whether an integer type for double-digit is +# available +# intDDsize number of bits in a double-digit +# uintDD,sintDD integer types for a double-digit #if !((32%intDsize)==0) - #error "intDsize sollte ein Teiler von 32 sein!" + #error "intDsize should be a divisor of 32!" #endif -# Vorzeichen eines Digit bestimmen -# sign_of_sintD(wert) -# > wert: ein Digit -# < sintD ergebnis: 0 falls wert>=0, -1 falls wert<0. - global sint32 sign_of_sintD (sintD wert); +# Determine the sign of a digit: +# sign_of_sintD(value) +# > value: a digit +# < sintD result: 0 if value>=0, -1 if value<0. + global sint32 sign_of_sintD (sintD value); #if (intDsize==8) #define sign_of_sintD(x) (sintD)(sign_of_sint16((sint16)(sint8)(x))) #endif @@ -30,8 +31,8 @@ #define sign_of_sintD(x) (sintD)(sign_of_sint32(x)) #endif -# High-Digit eines Doppel-Digit bestimmen -# highD(wert) +# Determine the high digit of a double-digit: +# highD(value) #if HAVE_DD #if (!(intDsize==16)) #define highD(x) ((uintD)((uintDD)(x)>>intDsize)) @@ -40,13 +41,13 @@ #endif #endif -# Low-Digit eines Doppel-Digit bestimmen -# lowD(wert) +# Determine the low digit of a double-digit: +# lowD(value) #if HAVE_DD #define lowD(x) ((uintD)(uintDD)(x)) #endif -# Ein Doppel-Digit aus ihrem High-Digit und ihrem Low-Digit bestimmen: +# Determine a double-digit from its high digit and its low digit parts: # highlowDD(uintD high, uintD low) #if HAVE_DD #if (!(intDsize==16)) @@ -56,7 +57,7 @@ #endif #endif -# Ein Doppel-Digit aus ihrem High-Digit und ihrem Low-Digit 0 bestimmen: +# Determine a double-digit from its high digit and its low digit given as 0: # highlowDD_0(uintD high) #if HAVE_DD #if (!(intDsize==16)) @@ -66,7 +67,7 @@ #endif #endif -# Zwei Digits multiplizieren: +# Multiply two digits: # (uintDD)hilo = muluD(uintD arg1, uintD arg2) # bzw. # muluD(uintD arg1, uintD arg2, uintD hi =, uintD lo =); @@ -90,9 +91,9 @@ #endif #endif -# Zwei Digits multiplizieren, mit einem Digit als Ergebnis. +# Multiply two digits, when the result is a single digit. # (uintD)lo = muluD_unchecked(uintD arg1, uintD arg2) -# Es wird vorausgesetzt, dass arg1*arg2 < 2^intDsize. +# The caller guarantees that arg1*arg2 < 2^intDsize. #if (intDsize==8) || (intDsize==16) #define muluD_unchecked(arg1,arg2) ((uintD)((uintD)(arg1)*(uintD)(arg2))) #endif @@ -100,12 +101,12 @@ #define muluD_unchecked(arg1,arg2) mulu32_unchecked(arg1,arg2) #endif -# Durch ein Digit dividieren: +# Divide by a digit: # divuD(uintDD x, uintD y, uintD q =, uintD r =); -# bzw. +# or # divuD(uintD xhi, uintD xlo, uintD y, uintD q =, uintD r =); -# dividiert x/y und liefert q = floor(x/y) und r = (x mod y). x = q*y+r. -# Es wird vorausgesetzt, dass 0 <= x < 2^intDsize*y. +# divides x/y and returns q = floor(x/y) and r = (x mod y). x = q*y+r. +# The caller guarantees that 0 <= x < 2^intDsize*y. #if HAVE_DD #if (intDsize==8) #define divuD divu_1616_1616 @@ -127,10 +128,10 @@ #endif #endif -# Durch ein Digit dividieren: +# Divide by a digit: # floorD(uintD x, uintD y) -# dividiert x/y und liefert q = floor(x/y). -# Es wird vorausgesetzt, dass y > 0. +# divides x/y and returns q = floor(x/y). +# The caller guarantees that y > 0. #if (intDsize==8) || (intDsize==16) #define floorD(arg1,arg2) (floor((uintD)(arg1),(uintD)(arg2))) #endif @@ -138,36 +139,44 @@ #define floorD divu_3232_3232_ #endif -# Digit sequence (DS) - nur intern verwendet - -# Zusammenhängender Speicherbereich mit n (ein uintC) Digits, -# zwischen zwei Pointer MSDptr und LSDptr. +# Digit Sequence (DS) - only used internally - +# A consecutive piece of memory, with n digits (n being an uintC), +# located between two pointers MSDptr and LSDptr. # MSDptr LSDptr -# | MSD ............. LSW | -# [abgekürzt: MSDptr/n/LSDptr ] -# In 68000-Manier (vgl. ADDX, SUBX) ist das Most significant Digit an der -# untersten Adresse, nämlich MSDptr. LSDptr = MSDptr + n zeigt hinter die DS. -# Falls n = 0, wird die Zahl 0 dargestellt. -# Falls n > 0, ist das höchstwertige Bit (nämlich Bit (intDsize-1) von -# *MSDptr) das Vorzeichenbit. Schreibt man es noch unendlich -# oft an, so erhält man die "unendliche Bitfolge". -# Normalisierte Digit sequence (NDS) ist eine solche, bei der das MSD nötig -# ist, also n = 0 oder (n > 0 und nicht alle höchstwertigen intDsize+1 Bits -# sind gleich). +# | MSD ............. LSD | +# [abbreviation: MSDptr/n/LSDptr ] +# Memory range: MSDptr[0..n-1]. +# LSDptr is = &MSDptr[n]. +# In Big-Endian convention, the most significant digit is located at the lowest +# address, namely at MSDptr. LSDptr = MSDptr + n points to the memory beyond +# the DS. +# If n = 0, the represented number is 0. +# If n > 0, the most significant bit (namely bit (intDsize-1) of *MSDptr) is +# the sign bit. After repeating it infinitely often, one obtains an +# "infinite bit sequence". +# +# Normalisierte Digit Sequence (NDS) +# is a digit sequence for which the MSD is necessary, i.e. cannot be optimized +# away. I.e. either n = 0 or (n > 0 and the intDsize+1 most significant bits +# are not all the same). # In C: -# uintD* MSWptr und uintC len. -# MSWptr[0] ... MSWptr[(uintL)len-1] sind die Digits. +# uintD* MSDptr and uintC len. +# MSDptr[0] ... MSDptr[len-1] are the digits. -# Unsigned Digit sequence (UDS) - nur intern verwendet - -# wie DS (MSD unten, LSD oben), nur ohne Vorzeichen. -# Normalized Unsigned Digit sequence (NUDS): -# wie UDS, nur ist entweder n=0 (Zahl 0) oder bei n>0 : *MSDptr >0. -# (d.h. die Zahl >=0 kann nicht mit weniger Digits als UDS dargestellt werden). +# Unsigned Digit Sequence (UDS) - only used internally - +# is like DS (MSD at low addresses, LSD at high addresses), except without a +# sign. +# +# Normalized Unsigned Digit Sequence (NUDS): +# like UDS, for which the number cannot be represented as an UDS with fewer +# digits: either n = 0 (represents the number 0) or if n > 0: *MSDptr >0. # In C: -# uintD* MSWptr und uintC len. -# MSWptr[0] ... MSWptr[(uintL)len-1] sind die Digits. +# uintD* MSDptr und uintC len. +# MSDptr[0] ... MSDptr[len-1] are the digits. -# Zur Konstruktion konstanter DS: D(byte0,byte1,byte2,byte3,) liefert -# die 32 Bits von {byte0,byte1,byte2,byte3} als 32/intDsize Digits. +# For constructing compile-time constant DS: +# D(byte0,byte1,byte2,byte3,) returns the 32 bits of {byte0,byte1,byte2,byte3} +# as 32/intDsize digits. #if (intDsize==8) #define D(byte0,byte1,byte2,byte3,dummy) byte0,byte1,byte2,byte3, #endif @@ -182,17 +191,17 @@ typedef struct { uintD* MSDptr; uintC len; uintD* LSDptr; } DS; -# Es gibt für die innersten Schleifen vier Möglichkeiten: -# LOOP_EXTERN_C Alle Schleifen als externe C-compilierte Routinen. -# Portabel, aber evtl. ineffizient. -# LOOP_INLINE_C Schleifen ohne Wert (mit GNU-Compiler: alle Schleifen) -# als Macros. -# Portabel, aber evtl. ineffizient. -# LOOP_EXTERN_ASM Alle Schleifen als externe Assembler-Routinen. -# Effizienter, aber immer noch Function-Call-Overhead. -# LOOP_INLINE_ASM Schleifen ohne Wert (mit GNU-Compiler: alle Schleifen) -# als macroexpandierte Assembler-Routinen inline. -# Ganz effizient. +# For the innermost loops there are four possible implementations: +# LOOP_EXTERN_C All loops as extern C compiled functions. +# Portable, but possibly inefficient. +# LOOP_INLINE_C Loops that don't return a value (or with GNU C: all loops) +# as C macros. +# Portable, but possibly inefficient. +# LOOP_EXTERN_ASM All loops as external assembler functions. +# More efficient, but still a function call overhead. +# LOOP_INLINE_ASM Loops that don't return a value (or with GNU C: all loops) +# as macroexpanded inline assembler routines. +# Very efficient. #if (defined(MC680X0) || defined(SPARC) || (defined(I80386) && !defined(BORLAND)) || defined(MIPS) || defined(VAX) || defined(ARM)) && !defined(NO_ARI_ASM) # diese Assembler beherrsche ich --__--__-- Message: 5 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src time.d,1.45,1.46 Date: Tue, 25 Jan 2005 23:54:26 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5115/src Modified Files: time.d Log Message: comment for convert_time_from_universal() Index: time.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/time.d,v retrieving revision 1.45 retrieving revision 1.46 diff -u -d -r1.45 -r1.46 --- time.d 25 Jan 2005 14:34:58 -0000 1.45 +++ time.d 25 Jan 2005 23:54:20 -0000 1.46 @@ -414,6 +414,7 @@ we can assume that the OS's timezone and CLISP's timezone agree. */ return UL_to_I(UNIX_LISP_TIME_DIFF + (uintL)(*time)); } +/* the inverse of convert_time_to_universal() */ global void convert_time_from_universal (object universal, time_t* time) { *time = I_to_UL(universal) - UNIX_LISP_TIME_DIFF; @@ -447,6 +448,7 @@ real_time=,); return UL_to_I(real_time); } +/* the inverse of convert_time_to_universal() */ global void convert_time_from_universal (object universal, FILETIME* time) { var uint64 ut = (I_to_uint64(universal) + (uint64)109207 * (uint64)86400) * (uint64)ticks_per_second; --__--__-- Message: 6 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src install.lisp,1.13,1.14 ChangeLog,1.4149,1.4150 Date: Wed, 26 Jan 2005 00:49:08 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14492/src Modified Files: install.lisp ChangeLog Log Message: use EXT:STRING-CONCAT instead of CONCATENATE 'STRING Index: install.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/install.lisp,v retrieving revision 1.13 retrieving revision 1.14 diff -u -d -r1.13 -r1.14 --- install.lisp 25 Jan 2005 15:23:03 -0000 1.13 +++ install.lisp 26 Jan 2005 00:47:06 -0000 1.14 @@ -11,16 +11,16 @@ (defvar *clisp-home* (namestring (default-directory))) (defvar *clisp-runtime* - (concatenate 'string "\"" *clisp-home* "base\\lisp.exe\"")) + (ext:string-concat "\"" *clisp-home* "base\\lisp.exe\"")) (defvar *clisp-some-args* - (concatenate 'string " -B \"" (substitute #\/ #\\ *clisp-home*) "\" -M ")) + (ext:string-concat " -B \"" (substitute #\/ #\\ *clisp-home*) "\" -M ")) (defvar *clisp-some-cmd* - (concatenate 'string *clisp-runtime* *clisp-some-args*)) + (ext:string-concat *clisp-runtime* *clisp-some-args*)) (defvar *clisp-args* - (concatenate 'string *clisp-some-args* "\"" + (ext:string-concat *clisp-some-args* "\"" *clisp-home* "base\\lispinit.mem\"")) (defvar *clisp-cmd* - (concatenate 'string *clisp-runtime* *clisp-args*)) + (ext:string-concat *clisp-runtime* *clisp-args*)) (defvar *eflags* (make-array 4 :element-type '(unsigned-byte 8) :initial-contents '(0 0 0 0))) @@ -44,7 +44,7 @@ (setf (dir-key-value cc "") "Compile with CLISP") (with-dir-key-open (cmd cc "command" :direction :output) (setf (dir-key-value cmd "") - (concatenate 'string *clisp-cmd* " -c \"%1\"")))))) + (ext:string-concat *clisp-cmd* " -c \"%1\"")))))) (defun add-fas-file (dkey) (format t "associating CLISP with FAS files under ~s~%" (dir-key-path dkey)) @@ -59,12 +59,12 @@ (setf (dir-key-value ex "") "Execute with CLISP") (with-dir-key-open (cmd ex "command" :direction :output) (setf (dir-key-value cmd "") - (concatenate 'string *clisp-cmd* " \"%1\"")))) + (ext:string-concat *clisp-cmd* " \"%1\"")))) (with-dir-key-open (lo sh "Load_into_CLISP" :direction :output) (setf (dir-key-value lo "") "Load into CLISP") (with-dir-key-open (cmd lo "command" :direction :output) (setf (dir-key-value cmd "") - (concatenate 'string *clisp-cmd* " -i \"%1\""))))))) + (ext:string-concat *clisp-cmd* " -i \"%1\""))))))) (defun add-mem-file (dkey) (format t "associating CLISP with MEM files under ~s~%" (dir-key-path dkey)) @@ -79,7 +79,7 @@ (setf (dir-key-value ex "") "Run with CLISP") (with-dir-key-open (cmd ex "command" :direction :output) (setf (dir-key-value cmd "") - (concatenate 'string *clisp-some-cmd* " \"%1\""))))))) + (ext:string-concat *clisp-some-cmd* " \"%1\""))))))) (when (y-or-n-p "Associate types~:{ <~a>,~} with CLISP?" *lisp-type-map*) (with-dir-key-open (c1 :win32 "HKEY_CLASSES_ROOT") @@ -91,16 +91,16 @@ (add-mem-file c1))) (let* ((desktop (dir-key-single-value :win32 "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders" "Common Desktop")) - (bat-file (concatenate 'string *clisp-home* "clisp.bat")) - (lnk-file (concatenate 'string desktop "\\CLISP.lnk")) - (url-file (concatenate 'string desktop "\\CLISP home.url"))) + (bat-file (ext:string-concat *clisp-home* "clisp.bat")) + (lnk-file (ext:string-concat desktop "\\CLISP.lnk")) + (url-file (ext:string-concat desktop "\\CLISP home.url"))) (when (y-or-n-p "Create a shorcut to CLISP on your desktop <~a>?" lnk-file) (format t "~&writing <~a>..." lnk-file) (force-output) (posix:make-shortcut lnk-file :path *clisp-runtime* :arguments *clisp-args* :working-directory (namestring (user-homedir-pathname)) :description "CLISP - ANSI Common Lisp implementation" - :icon (concatenate 'string *clisp-home* "doc\\clisp.ico")) + :icon (ext:string-concat *clisp-home* "doc\\clisp.ico")) (format t "done~%")) (when (y-or-n-p "Create CLISP URL file on your desktop <~a>?" url-file) (with-open-file (url (substitute #\/ #\\ url-file) :direction :output) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4149 retrieving revision 1.4150 diff -u -d -r1.4149 -r1.4150 --- ChangeLog 25 Jan 2005 14:36:23 -0000 1.4149 +++ ChangeLog 26 Jan 2005 00:47:09 -0000 1.4150 @@ -1,3 +1,7 @@ +2005-01-25 Sam Steingold <sd...@gn...> + + * install.lisp: use EXT:STRING-CONCAT instead of CONCATENATE 'STRING + 2005-01-25 Bruno Haible <br...@cl...> * i18n/configure.in: Don't test for locale.h and setlocale. --__--__-- Message: 7 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src install.lisp,1.14,1.15 ChangeLog,1.4150,1.4151 Date: Wed, 26 Jan 2005 00:51:49 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15190/src Modified Files: install.lisp ChangeLog Log Message: (*clisp-linkset*): new variable (*clisp-runtime*, *clisp-args*): use it Index: install.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/install.lisp,v retrieving revision 1.14 retrieving revision 1.15 diff -u -d -r1.14 -r1.15 --- install.lisp 26 Jan 2005 00:47:06 -0000 1.14 +++ install.lisp 26 Jan 2005 00:51:22 -0000 1.15 @@ -10,15 +10,16 @@ (use-package "LDAP") (defvar *clisp-home* (namestring (default-directory))) +(defvar *clisp-linkset* "base") (defvar *clisp-runtime* - (ext:string-concat "\"" *clisp-home* "base\\lisp.exe\"")) + (ext:string-concat "\"" *clisp-home* *clisp-linkset* "\\lisp.exe\"")) (defvar *clisp-some-args* (ext:string-concat " -B \"" (substitute #\/ #\\ *clisp-home*) "\" -M ")) (defvar *clisp-some-cmd* (ext:string-concat *clisp-runtime* *clisp-some-args*)) (defvar *clisp-args* (ext:string-concat *clisp-some-args* "\"" - *clisp-home* "base\\lispinit.mem\"")) + *clisp-home* *clisp-linkset* "\\lispinit.mem\"")) (defvar *clisp-cmd* (ext:string-concat *clisp-runtime* *clisp-args*)) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4150 retrieving revision 1.4151 diff -u -d -r1.4150 -r1.4151 --- ChangeLog 26 Jan 2005 00:47:09 -0000 1.4150 +++ ChangeLog 26 Jan 2005 00:51:32 -0000 1.4151 @@ -1,6 +1,8 @@ 2005-01-25 Sam Steingold <sd...@gn...> * install.lisp: use EXT:STRING-CONCAT instead of CONCATENATE 'STRING + (*clisp-linkset*): new variable + (*clisp-runtime*, *clisp-args*): use it 2005-01-25 Bruno Haible <br...@cl...> --__--__-- Message: 8 From: Sam Steingold <sd...@us...> To: cli...@li... Subject: clisp/src stream.d,1.499,1.500 ChangeLog,1.4151,1.4152 Date: Wed, 26 Jan 2005 01:29:23 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20283/src Modified Files: stream.d ChangeLog Log Message: (MAKE-STREAM): handle_to_stream() already duplicates the handle Index: stream.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/stream.d,v retrieving revision 1.499 retrieving revision 1.500 diff -u -d -r1.499 -r1.500 --- stream.d 25 Jan 2005 14:34:59 -0000 1.499 +++ stream.d 26 Jan 2005 01:21:28 -0000 1.500 @@ -14822,19 +14822,7 @@ STACK_4 = value1; goto restart_make_stream; } - var Handle new_handle; - begin_system_call(); -#if defined(UNIX) - new_handle = dup(fd); -#elif defined(WIN32_NATIVE) - if (!DuplicateHandle(GetCurrentProcess(),fd, - GetCurrentProcess(),new_handle, - 0, true, DUPLICATE_SAME_ACCESS)) - { OS_error(); } -#else - #error "how do you duplicate handles on your OS?" -#endif - VALUES1(handle_to_stream(new_handle,STACK_3,STACK_0,STACK_1,STACK_2)); + VALUES1(handle_to_stream(fd,STACK_3,STACK_0,STACK_1,STACK_2)); skipSTACK(5); } Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.4151 retrieving revision 1.4152 diff -u -d -r1.4151 -r1.4152 --- ChangeLog 26 Jan 2005 00:51:32 -0000 1.4151 +++ ChangeLog 26 Jan 2005 01:26:45 -0000 1.4152 @@ -1,5 +1,10 @@ 2005-01-25 Sam Steingold <sd...@gn...> + * stream.d (MAKE-STREAM): handle_to_stream() already duplicates + the handle, do not do it here + +2005-01-25 Sam Steingold <sd...@gn...> + * install.lisp: use EXT:STRING-CONCAT instead of CONCATENATE 'STRING (*clisp-linkset*): new variable (*clisp-runtime*, *clisp-args*): use it --__--__-- _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest |
