From: <cli...@li...> - 2004-10-21 11:35:11
|
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 affi1.lisp,1.11,1.12 clos-class3.lisp,1.60,1.61 cmacros.lisp,1.15,1.16 defs1.lisp,1.40,1.41 compiler.lisp,1.221,1.222 condition.lisp,1.54,1.55 defmacro.lisp,1.29,1.30 defpackage.lisp,1.6,1.7 defs2.lisp,1.31,1.32 foreign1.lisp,1.66,1.67 format.lisp,1.34,1.35 init.lisp,1.191,1.192 international.lisp,1.3,1.4 keyboard.lisp,1.5,1.6 macros1.lisp,1.20,1.21 macros2.lisp,1.25,1.26 places.lisp,1.48,1.49 reploop.lisp,1.35,1.36 screen.lisp,1.8,1.9 trace.lisp,1.29,1.30 type.lisp,1.65,1.66 constsym.d,1.273,1.274 clos-print.lisp,1.14,1.15 room.lisp,1.5,1.6 clos-class1.lisp,1.20,1.21 clos-slotdef1.lisp,1.17,1.18 clos-class2.lisp,1.44,1.45 clos-class5.lisp,1.45,1.46 clos-genfun1.lisp,1.24,1.25 clos-macros.lisp,1.3,1.4 clos-genfun2.lisp,1.66,1.67 clos-genfun3.lisp,1.47,1.48 clos-genfun4.lisp,1.35,1.36 clos-genfun5.lisp,1.22,1.23 clos-methcomb2.lisp,1.57,1.58 clos-method1.lisp,1.34,1.35 clos-method4.lisp,1.3,1.4 ChangeLog,1.3704,1.3705 (Bruno Haible) --__--__-- Message: 1 From: Bruno Haible <ha...@us...> To: cli...@li... Subject: clisp/src affi1.lisp,1.11,1.12 clos-class3.lisp,1.60,1.61 cmacros.lisp,1.15,1.16 defs1.lisp,1.40,1.41 compiler.lisp,1.221,1.222 condition.lisp,1.54,1.55 defmacro.lisp,1.29,1.30 defpackage.lisp,1.6,1.7 defs2.lisp,1.31,1.32 foreign1.lisp,1.66,1.67 format.lisp,1.34,1.35 init.lisp,1.191,1.192 international.lisp,1.3,1.4 keyboard.lisp,1.5,1.6 macros1.lisp,1.20,1.21 macros2.lisp,1.25,1.26 places.lisp,1.48,1.49 reploop.lisp,1.35,1.36 screen.lisp,1.8,1.9 trace.lisp,1.29,1.30 type.lisp,1.65,1.66 constsym.d,1.273,1.274 clos-print.lisp,1.14,1.15 room.lisp,1.5,1.6 clos-class1.lisp,1.20,1.21 clos-slotdef1.lisp,1.17,1.18 clos-class2.lisp,1.44,1.45 clos-class5.lisp,1.45,1.46 clos-genfun1.lisp,1.24,1.25 clos-macros.lisp,1.3,1.4 clos-genfun2.lisp,1.66,1.67 clos-genfun3.lisp,1.47,1.48 clos-genfun4.lisp,1.35,1.36 clos-genfun5.lisp,1.22,1.23 clos-methcomb2.lisp,1.57,1.58 clos-method1.lisp,1.34,1.35 clos-method4.lisp,1.3,1.4 ChangeLog,1.3704,1.3705 Date: Thu, 21 Oct 2004 11:18:43 +0000 Reply-To: cli...@li... Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27379/src Modified Files: affi1.lisp clos-class3.lisp cmacros.lisp defs1.lisp compiler.lisp condition.lisp defmacro.lisp defpackage.lisp defs2.lisp foreign1.lisp format.lisp init.lisp international.lisp keyboard.lisp macros1.lisp macros2.lisp places.lisp reploop.lisp screen.lisp trace.lisp type.lisp constsym.d clos-print.lisp room.lisp clos-class1.lisp clos-slotdef1.lisp clos-class2.lisp clos-class5.lisp clos-genfun1.lisp clos-macros.lisp clos-genfun2.lisp clos-genfun3.lisp clos-genfun4.lisp clos-genfun5.lisp clos-methcomb2.lisp clos-method1.lisp clos-method4.lisp ChangeLog Log Message: Mark functions that are part of the .fas file ABI. Index: clos-genfun5.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/clos-genfun5.lisp,v retrieving revision 1.22 retrieving revision 1.23 diff -u -d -r1.22 -r1.23 --- clos-genfun5.lisp 4 Sep 2004 14:13:05 -0000 1.22 +++ clos-genfun5.lisp 21 Oct 2004 11:18:39 -0000 1.23 @@ -10,7 +10,7 @@ (setf (fdefinition 'make-instance-<standard-generic-function>) #'make-instance) ;; Make creation of generic-function instances customizable. -(setf (fdefinition 'make-generic-function-instance) #'make-instance) +(setf (fdefinition 'make-generic-function-instance) #'make-instance) ; ABI ;;; =========================================================================== Index: reploop.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/reploop.lisp,v retrieving revision 1.35 retrieving revision 1.36 diff -u -d -r1.35 -r1.36 --- reploop.lisp 20 Oct 2004 18:29:36 -0000 1.35 +++ reploop.lisp 21 Oct 2004 11:18:38 -0000 1.36 @@ -572,11 +572,11 @@ ;;;-------------------------------------------------------------------------- ;;; convenient Stepper. (runs only if compiled!) -(defvar *step-level* 0 "current Step-depth") -(defvar *step-quit* most-positive-fixnum "critical Step-depth") +(defvar *step-level* 0 "current Step-depth") ; ABI +(defvar *step-quit* most-positive-fixnum "critical Step-depth") ; ABI ;; the stepper wakes up, as soon as *step-level* <= *step-quit* -(defvar *step-watch* nil) ; terminating condition +(defvar *step-watch* nil) ; terminating condition ; ABI (defmacro step (form) "(STEP form), CLTL p. 441" Index: trace.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/trace.lisp,v retrieving revision 1.29 retrieving revision 1.30 diff -u -d -r1.29 -r1.30 --- trace.lisp 21 Aug 2004 12:20:59 -0000 1.29 +++ trace.lisp 21 Oct 2004 11:18:38 -0000 1.30 @@ -48,7 +48,7 @@ "Use indentation in addition to numbering to indicate the trace level.") (proclaim '(special *trace-function* *trace-args* *trace-form* *trace-values*)) -(defvar *traced-functions* nil) ; list of currently traced function-names +(defvar *traced-functions* nil) ; list of currently traced function-names ; ABI ;; So long as a function-name funname [resp. more exactly: the Symbol ;; symbol = (get-funname-symbol funname)] are traced, the Property ;; sys::traced-definition contains the old content of the function-cell, the @@ -61,6 +61,7 @@ ;; (eq (symbol-function symbol) (get symbol 'sys::tracing-definition))) ;; ===> (member funname *traced-functions* :test #'equal) ;; <==> (get symbol 'sys::traced-definition) + (defvar *trace-level* 0) ; nesting depth for Trace-Output (labels ((subclosure-pos (closure name) @@ -94,10 +95,10 @@ (subclosure-pos clo (car spe)))) ((endp (cdr spe)) (values clo pos))))) - (defun %local-get (spec) + (defun %local-get (spec) ; ABI (multiple-value-bind (clo pos) (local-helper spec) (sys::%record-ref clo pos))) - (defun %local-set (new-def spec) + (defun %local-set (new-def spec) ; ABI (unless (closurep new-def) (error-of-type 'type-error :datum new-def :expected-type 'closure @@ -119,8 +120,8 @@ "Modify the local definition (LABELS or FLET). This will not work with closures that use lexical variables!" (let ((store (gensym "LOCAL-"))) - (values nil nil `(,store) `(%local-set ,store ',spec) - `(%local-get ,spec)))) + (values nil nil `(,store) `(%LOCAL-SET ,store ',spec) + `(%LOCAL-GET ,spec)))) ;; check whether the object might name a local (LABELS or FLET) function (defun local-function-name-p (obj) @@ -139,16 +140,16 @@ (defmacro trace (&rest funs) (if (null funs) - '*traced-functions* + '*TRACED-FUNCTIONS* (cons 'append (mapcar (lambda (fun) (cond ((or (function-name-p fun) (local-function-name-p fun)) (let ((trr (make-tracer :name fun))) (check-traceable fun trr 'trace) - `(trace1 ,trr))) + `(TRACE1 ,trr))) ((let ((trr (apply #'make-tracer :name fun))) (check-traceable (first fun) trr 'trace) - `(trace1 ,trr))))) + `(TRACE1 ,trr))))) funs)))) ;; check whether the FUNNAME can be traced, @@ -177,7 +178,7 @@ (check-redefinition funname caller "function") trr) -(defun trace1 (trr) +(defun trace1 (trr) ; ABI (let ((macro-flag (macrop (tracer-cur-def trr))) (sig (when (tracer-local-p trr) (sig-to-list (get-signature (tracer-cur-def trr)))))) @@ -307,10 +308,10 @@ (write-string ", " *trace-output*)))) (defmacro untrace (&rest funs) - `(mapcan #'untrace1 - ,(if (null funs) `(copy-list *traced-functions*) `',funs))) + `(MAPCAN #'UNTRACE1 + ,(if (null funs) `(COPY-LIST *TRACED-FUNCTIONS*) `',funs))) -(defun untrace1 (funname) +(defun untrace1 (funname) ; ABI (let* ((trr (check-traceable funname (make-tracer :name funname) 'untrace)) (symbol (tracer-symb trr)) (old-definition (get symbol 'sys::traced-definition))) Index: clos-class5.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/clos-class5.lisp,v retrieving revision 1.45 retrieving revision 1.46 diff -u -d -r1.45 -r1.46 --- clos-class5.lisp 20 Oct 2004 11:19:40 -0000 1.45 +++ clos-class5.lisp 21 Oct 2004 11:18:39 -0000 1.46 @@ -642,7 +642,7 @@ ;; Returns the valid initialization arguments of a class, or T if any symbol ;; is allowed. -(defun class-valid-initialization-keywords (class) +(defun class-valid-initialization-keywords (class) ; ABI (let ((entry (gethash class *make-instance-table*))) (if entry ;; Get it from the cache. Index: constsym.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/constsym.d,v retrieving revision 1.273 retrieving revision 1.274 diff -u -d -r1.273 -r1.274 --- constsym.d 11 Oct 2004 17:05:09 -0000 1.273 +++ constsym.d 21 Oct 2004 11:18:38 -0000 1.274 @@ -37,6 +37,11 @@ /* which expander is used must be specified in the main file. */ +/* The marker 'ABI' means that although the symbol is not exported from one + of the public packages (COMMON-LISP, CLOS, EXT, FFI), it can be referred + to from user compiled .fas files, because it occurs as part of macro + expansions. */ + LISPSYM(nil,"NIL",lisp) LISPSYM(t,"T",lisp) @@ -91,15 +96,15 @@ LISPSYM(add_implicit_block,"ADD-IMPLICIT-BLOCK",system) LISPSYM(function_block_name,"FUNCTION-BLOCK-NAME",system) /* ---------- ARRAY ---------- */ -LISPSYM(copy_simple_vector,"%COPY-SIMPLE-VECTOR",system) +LISPSYM(copy_simple_vector,"%COPY-SIMPLE-VECTOR",system) /* ABI */ LISPSYM(vector,"VECTOR",lisp) LISPSYM(aref,"AREF",lisp) -LISPSYM(store,"STORE",system) +LISPSYM(store,"STORE",system) /* ABI */ LISPSYM(svref,"SVREF",lisp) -LISPSYM(svstore,"SVSTORE",system) -LISPSYM(psvstore,"%SVSTORE",system) +LISPSYM(svstore,"SVSTORE",system) /* ABI */ +LISPSYM(psvstore,"%SVSTORE",system) /* ABI */ LISPSYM(row_major_aref,"ROW-MAJOR-AREF",lisp) -LISPSYM(row_major_store,"ROW-MAJOR-STORE",system) +LISPSYM(row_major_store,"ROW-MAJOR-STORE",system) /* ABI */ LISPSYM(array_element_type,"ARRAY-ELEMENT-TYPE",lisp) LISPSYM(array_rank,"ARRAY-RANK",lisp) LISPSYM(array_dimension,"ARRAY-DIMENSION",lisp) @@ -124,7 +129,7 @@ LISPSYM(bit_not,"BIT-NOT",lisp) LISPSYM(array_has_fill_pointer_p,"ARRAY-HAS-FILL-POINTER-P",lisp) LISPSYM(fill_pointer,"FILL-POINTER",lisp) -LISPSYM(set_fill_pointer,"SET-FILL-POINTER",system) +LISPSYM(set_fill_pointer,"SET-FILL-POINTER",system) /* ABI */ LISPSYM(vector_push,"VECTOR-PUSH",lisp) LISPSYM(vector_pop,"VECTOR-POP",lisp) LISPSYM(vector_push_extend,"VECTOR-PUSH-EXTEND",lisp) @@ -147,7 +152,7 @@ LISPSYM(char_width,"CHAR-WIDTH",ext) LISPSYM(string_char_p,"STRING-CHAR-P",ext) #if (base_char_code_limit < char_code_limit) -LISPSYM(base_char_p,"BASE-CHAR-P",system) +LISPSYM(base_char_p,"BASE-CHAR-P",system) /* ABI */ #endif LISPSYM(alpha_char_p,"ALPHA-CHAR-P",lisp) LISPSYM(upper_case_p,"UPPER-CASE-P",lisp) @@ -178,8 +183,8 @@ LISPSYM(char_name,"CHAR-NAME",lisp) LISPSYM(char,"CHAR",lisp) LISPSYM(schar,"SCHAR",lisp) -LISPSYM(store_char,"STORE-CHAR",system) -LISPSYM(store_schar,"STORE-SCHAR",system) +LISPSYM(store_char,"STORE-CHAR",system) /* ABI */ +LISPSYM(store_schar,"STORE-SCHAR",system) /* ABI */ LISPSYM(string_gleich,"STRING=",lisp) LISPSYM(string_ungleich,"STRING/=",lisp) LISPSYM(string_kleiner,"STRING<",lisp) @@ -216,7 +221,7 @@ LISPSYM(boundp,"BOUNDP",lisp) LISPSYM(fboundp,"FBOUNDP",lisp) LISPSYM(special_operator_p,"SPECIAL-OPERATOR-P",lisp) -LISPSYM(set,"SET-SYMBOL-VALUE",system) +LISPSYM(set,"SET-SYMBOL-VALUE",system) /* ABI */ LISPSYM(makunbound,"MAKUNBOUND",lisp) LISPSYM(fmakunbound,"FMAKUNBOUND",lisp) LISPSYM(apply,"APPLY",lisp) @@ -246,7 +251,7 @@ LISPSYM(check_function_name,"CHECK-FUNCTION-NAME",system) LISPSYM(check_symbol,"CHECK-SYMBOL",system) LISPSYM(parse_body,"PARSE-BODY",system) -LISPSYM(keyword_test,"KEYWORD-TEST",system) +LISPSYM(keyword_test,"KEYWORD-TEST",system) /* ABI */ LISPSYM(xor,"XOR",ext) /* ---------- DEBUG ---------- */ LISPSYM(read_form,"READ-FORM",system) @@ -272,26 +277,26 @@ LISPSYM(gc,"GC",ext) /* ---------- ENCODING ---------- */ LISPSYM(make_encoding,"MAKE-ENCODING",ext) -LISPSYM(encodingp,"ENCODINGP",system) +LISPSYM(encodingp,"ENCODINGP",system) /* ABI */ LISPSYM(charset_typep,"CHARSET-TYPEP",system) LISPSYM(encoding_line_terminator,"ENCODING-LINE-TERMINATOR",ext) #ifdef UNICODE LISPSYM(encoding_charset,"ENCODING-CHARSET",ext) LISPSYM(charset_range,"CHARSET-RANGE",system) #endif -LISPSYM(default_file_encoding,"DEFAULT-FILE-ENCODING",system) -LISPSYM(set_default_file_encoding,"SET-DEFAULT-FILE-ENCODING",system) +LISPSYM(default_file_encoding,"DEFAULT-FILE-ENCODING",system) /* ABI */ +LISPSYM(set_default_file_encoding,"SET-DEFAULT-FILE-ENCODING",system) /* ABI */ #ifdef UNICODE -LISPSYM(pathname_encoding,"PATHNAME-ENCODING",system) -LISPSYM(set_pathname_encoding,"SET-PATHNAME-ENCODING",system) -LISPSYM(terminal_encoding,"TERMINAL-ENCODING",system) -LISPSYM(set_terminal_encoding,"SET-TERMINAL-ENCODING",system) +LISPSYM(pathname_encoding,"PATHNAME-ENCODING",system) /* ABI */ +LISPSYM(set_pathname_encoding,"SET-PATHNAME-ENCODING",system) /* ABI */ +LISPSYM(terminal_encoding,"TERMINAL-ENCODING",system) /* ABI */ +LISPSYM(set_terminal_encoding,"SET-TERMINAL-ENCODING",system) /* ABI */ #if defined(HAVE_FFI) || defined(HAVE_AFFI) -LISPSYM(foreign_encoding,"FOREIGN-ENCODING",system) -LISPSYM(set_foreign_encoding,"SET-FOREIGN-ENCODING",system) +LISPSYM(foreign_encoding,"FOREIGN-ENCODING",system) /* ABI */ +LISPSYM(set_foreign_encoding,"SET-FOREIGN-ENCODING",system) /* ABI */ #endif -LISPSYM(misc_encoding,"MISC-ENCODING",system) -LISPSYM(set_misc_encoding,"SET-MISC-ENCODING",system) +LISPSYM(misc_encoding,"MISC-ENCODING",system) /* ABI */ +LISPSYM(set_misc_encoding,"SET-MISC-ENCODING",system) /* ABI */ #endif LISPSYM(convert_string_from_bytes,"CONVERT-STRING-FROM-BYTES",ext) LISPSYM(convert_string_to_bytes,"CONVERT-STRING-TO-BYTES",ext) @@ -299,13 +304,13 @@ LISPSYM(error,"ERROR",lisp) LISPSYM(defclcs,"%DEFCLCS",system) LISPSYM(cerror_of_type,"CERROR-OF-TYPE",system) -LISPSYM(error_of_type,"ERROR-OF-TYPE",system) +LISPSYM(error_of_type,"ERROR-OF-TYPE",system) /* ABI */ LISPSYM(invoke_debugger,"INVOKE-DEBUGGER",lisp) LISPSYM(clcs_signal,"SIGNAL",lisp) /* ---------- HASHTABL ---------- */ LISPSYM(make_hash_table,"MAKE-HASH-TABLE",lisp) LISPSYM(gethash,"GETHASH",lisp) -LISPSYM(puthash,"PUTHASH",system) +LISPSYM(puthash,"PUTHASH",system) /* ABI */ LISPSYM(remhash,"REMHASH",lisp) LISPSYM(maphash,"MAPHASH",lisp) LISPSYM(clrhash,"CLRHASH",lisp) @@ -316,12 +321,12 @@ LISPSYM(hash_table_test,"HASH-TABLE-TEST",lisp) LISPSYM(fasthash_stable_p,"FASTHASH-STABLE-P",system) LISPSYM(stablehash_stable_p,"STABLEHASH-STABLE-P",system) -LISPSYM(hash_table_iterator,"HASH-TABLE-ITERATOR",system) -LISPSYM(hash_table_iterate,"HASH-TABLE-ITERATE",system) +LISPSYM(hash_table_iterator,"HASH-TABLE-ITERATOR",system) /* ABI */ +LISPSYM(hash_table_iterate,"HASH-TABLE-ITERATE",system) /* ABI */ LISPSYM(hash_table_weak_p,"HASH-TABLE-WEAK-P",ext) -LISPSYM(set_hash_table_weak_p,"(SETF HASH-TABLE-WEAK-P)",system) +LISPSYM(set_hash_table_weak_p,"(SETF HASH-TABLE-WEAK-P)",system) /* ABI */ LISPSYM(hash_table_warn_if_needs_rehash_after_gc,"HASH-TABLE-WARN-IF-NEEDS-REHASH-AFTER-GC",ext) -LISPSYM(set_hash_table_warn_if_needs_rehash_after_gc,"(SETF HASH-TABLE-WARN-IF-NEEDS-REHASH-AFTER-GC)",system) +LISPSYM(set_hash_table_warn_if_needs_rehash_after_gc,"(SETF HASH-TABLE-WARN-IF-NEEDS-REHASH-AFTER-GC)",system) /* ABI */ LISPSYM(class_gethash,"CLASS-GETHASH",clos) LISPSYM(class_tuple_gethash,"CLASS-TUPLE-GETHASH",clos) LISPSYM(sxhash,"SXHASH",lisp) @@ -335,7 +340,7 @@ LISPSYM(set_dispatch_macro_character,"SET-DISPATCH-MACRO-CHARACTER",lisp) LISPSYM(get_dispatch_macro_character,"GET-DISPATCH-MACRO-CHARACTER",lisp) LISPSYM(readtable_case,"READTABLE-CASE",lisp) -LISPSYM(set_readtable_case,"SET-READTABLE-CASE",system) +LISPSYM(set_readtable_case,"SET-READTABLE-CASE",system) /* ABI */ LISPSYM(lpar_reader,"LPAR-READER",system) LISPSYM(rpar_reader,"RPAR-READER",system) LISPSYM(quote_reader,"QUOTE-READER",system) @@ -381,7 +386,7 @@ LISPSYM(clear_input,"CLEAR-INPUT",lisp) LISPSYM(read_from_string,"READ-FROM-STRING",lisp) LISPSYM(parse_integer,"PARSE-INTEGER",lisp) -LISPSYM(print_structure,"PRINT-STRUCTURE",system) +LISPSYM(print_structure,"PRINT-STRUCTURE",system) /* ABI */ LISPSYM(write,"WRITE",lisp) LISPSYM(prin1,"PRIN1",lisp) LISPSYM(print,"PRINT",lisp) @@ -389,7 +394,7 @@ LISPSYM(pprint_dispatch,"PPRINT-DISPATCH",lisp) /* used in io.d */ LISPSYM(pprint_indent,"PPRINT-INDENT",lisp) LISPSYM(pprint_newline,"PPRINT-NEWLINE",lisp) -LISPSYM(ppprint_logical_block,"%PPRINT-LOGICAL-BLOCK",system) +LISPSYM(ppprint_logical_block,"%PPRINT-LOGICAL-BLOCK",system) /* ABI */ LISPSYM(pcirclep,"%CIRCLEP",system) /* for PPRINT-POP */ LISPSYM(princ,"PRINC",lisp) LISPSYM(write_to_string,"WRITE-TO-STRING",lisp) @@ -403,8 +408,8 @@ LISPSYM(finish_output,"FINISH-OUTPUT",lisp) LISPSYM(force_output,"FORCE-OUTPUT",lisp) LISPSYM(clear_output,"CLEAR-OUTPUT",lisp) -LISPSYM(write_unreadable,"WRITE-UNREADABLE",system) -LISPSYM(line_position,"LINE-POSITION",system) +LISPSYM(write_unreadable,"WRITE-UNREADABLE",system) /* ABI */ +LISPSYM(line_position,"LINE-POSITION",system) /* ABI */ LISPSYM(whitespacep,"WHITESPACEP",system) LISPSYM(write_spaces,"WRITE-SPACES",system) /* ---------- LIST ---------- */ @@ -456,7 +461,7 @@ LISPSYM(tenth,"TENTH",lisp) LISPSYM(rest,"REST",lisp) LISPSYM(nthcdr,"NTHCDR",lisp) -LISPSYM(conses_p,"CONSES-P",system) +LISPSYM(conses_p,"CONSES-P",system) /* ABI */ LISPSYM(last,"LAST",lisp) LISPSYM(list,"LIST",lisp) LISPSYM(liststern,"LIST*",lisp) @@ -468,14 +473,14 @@ LISPSYM(revappend,"REVAPPEND",lisp) LISPSYM(nconc,"NCONC",lisp) LISPSYM(nreconc,"NRECONC",lisp) -LISPSYM(list_nreverse,"LIST-NREVERSE",system) +LISPSYM(list_nreverse,"LIST-NREVERSE",system) /* ABI */ LISPSYM(butlast,"BUTLAST",lisp) LISPSYM(nbutlast,"NBUTLAST",lisp) LISPSYM(ldiff,"LDIFF",lisp) LISPSYM(rplaca,"RPLACA",lisp) -LISPSYM(prplaca,"%RPLACA",system) +LISPSYM(prplaca,"%RPLACA",system) /* ABI */ LISPSYM(rplacd,"RPLACD",lisp) -LISPSYM(prplacd,"%RPLACD",system) +LISPSYM(prplacd,"%RPLACD",system) /* ABI */ LISPSYM(subst,"SUBST",lisp) LISPSYM(subst_if,"SUBST-IF",lisp) LISPSYM(subst_if_not,"SUBST-IF-NOT",lisp) @@ -484,7 +489,7 @@ LISPSYM(nsubst_if_not,"NSUBST-IF-NOT",lisp) LISPSYM(sublis,"SUBLIS",lisp) LISPSYM(nsublis,"NSUBLIS",lisp) -LISPSYM(memq,"MEMQ",system) +LISPSYM(memq,"MEMQ",system) /* ABI */ LISPSYM(member,"MEMBER",lisp) LISPSYM(member_if,"MEMBER-IF",lisp) LISPSYM(member_if_not,"MEMBER-IF-NOT",lisp) @@ -531,16 +536,16 @@ LISPSYM(code_address_of,"CODE-ADDRESS-OF",system) LISPSYM(program_id,"PROGRAM-ID",system) #endif -LISPSYM(ansi,"ANSI",system) -LISPSYM(set_ansi,"SET-ANSI",system) +LISPSYM(ansi,"ANSI",system) /* ABI */ +LISPSYM(set_ansi,"SET-ANSI",system) /* ABI */ LISPSYM(module_info,"MODULE-INFO",ext) #if defined(DYNAMIC_FFI) && (defined(WIN32_NATIVE) || defined(HAVE_DLOPEN)) LISPSYM(Kffi,"FFI",keyword) #endif LISPSYM(argv,"ARGV",ext) /* ---------- I18N ---------- */ -LISPSYM(current_language,"CURRENT-LANGUAGE",system) -LISPSYM(set_current_language,"SET-CURRENT-LANGUAGE",system) +LISPSYM(current_language,"CURRENT-LANGUAGE",system) /* ABI */ +LISPSYM(set_current_language,"SET-CURRENT-LANGUAGE",system) /* ABI */ LISPSYM(text,"TEXT",system) LISPSYM(i18n_gettext,"GETTEXT",i18n) LISPSYM(i18n_ngettext,"NGETTEXT",i18n) @@ -565,12 +570,12 @@ LISPSYM(default_time_zone,"DEFAULT-TIME-ZONE",system) #endif LISPSYM(sleep,"%SLEEP",system) -LISPSYM(time,"%%TIME",system) +LISPSYM(time,"%%TIME",system) /* ABI */ LISPSYM(delta4,"DELTA4",system) /* ---------- PACKAGE ---------- */ LISPSYM(make_symbol,"MAKE-SYMBOL",lisp) LISPSYM(find_package,"FIND-PACKAGE",lisp) -LISPSYM(pfind_package,"%FIND-PACKAGE",system) +LISPSYM(pfind_package,"%FIND-PACKAGE",system) /* ABI */ LISPSYM(package_name,"PACKAGE-NAME",lisp) LISPSYM(package_nicknames,"PACKAGE-NICKNAMES",lisp) LISPSYM(rename_package,"RENAME-PACKAGE",lisp) @@ -579,9 +584,9 @@ LISPSYM(package_shadowing_symbols,"PACKAGE-SHADOWING-SYMBOLS",lisp) LISPSYM(package_lock,"PACKAGE-LOCK",ext) LISPSYM(package_case_sensitive_p,"PACKAGE-CASE-SENSITIVE-P",ext) -LISPSYM(package_documentation,"PACKAGE-DOCUMENTATION",system) -LISPSYM(set_package_documentation,"(SETF PACKAGE-DOCUMENTATION)",system) -LISPSYM(set_package_lock,"(SETF PACKAGE-LOCK)",system) +LISPSYM(package_documentation,"PACKAGE-DOCUMENTATION",system) /* ABI */ +LISPSYM(set_package_documentation,"(SETF PACKAGE-DOCUMENTATION)",system) /* ABI */ +LISPSYM(set_package_lock,"(SETF PACKAGE-LOCK)",system) /* ABI */ LISPSYM(symbol_value_lock,"SYMBOL-VALUE-LOCK",system) LISPSYM(check_package_lock,"CHECK-PACKAGE-LOCK",system) LISPSYM(list_all_packages,"LIST-ALL-PACKAGES",lisp) @@ -597,15 +602,15 @@ LISPSYM(use_package,"USE-PACKAGE",lisp) LISPSYM(unuse_package,"UNUSE-PACKAGE",lisp) LISPSYM(make_package,"MAKE-PACKAGE",lisp) -LISPSYM(pin_package,"%IN-PACKAGE",system) +LISPSYM(pin_package,"%IN-PACKAGE",system) /* ABI */ /* LISPSYM(in_package,"IN-PACKAGE",lisp) */ LISPSYM(delete_package,"DELETE-PACKAGE",lisp) LISPSYM(find_all_symbols,"FIND-ALL-SYMBOLS",lisp) -LISPSYM(map_symbols,"MAP-SYMBOLS",system) -LISPSYM(map_external_symbols,"MAP-EXTERNAL-SYMBOLS",system) -LISPSYM(map_all_symbols,"MAP-ALL-SYMBOLS",system) -LISPSYM(package_iterator,"PACKAGE-ITERATOR",system) -LISPSYM(package_iterate,"PACKAGE-ITERATE",system) +LISPSYM(map_symbols,"MAP-SYMBOLS",system) /* ABI */ +LISPSYM(map_external_symbols,"MAP-EXTERNAL-SYMBOLS",system) /* ABI */ +LISPSYM(map_all_symbols,"MAP-ALL-SYMBOLS",system) /* ABI */ +LISPSYM(package_iterator,"PACKAGE-ITERATOR",system) /* ABI */ +LISPSYM(package_iterate,"PACKAGE-ITERATE",system) /* ABI */ /* ---------- PATHNAME ---------- */ LISPSYM(parse_namestring,"PARSE-NAMESTRING",lisp) LISPSYM(pathname,"PATHNAME",lisp) @@ -674,8 +679,8 @@ #ifdef HAVE_DISASSEMBLER LISPSYM(program_name,"PROGRAM-NAME",system) #endif -LISPSYM(lib_directory,"LIB-DIRECTORY",system) -LISPSYM(set_lib_directory,"SET-LIB-DIRECTORY",system) +LISPSYM(lib_directory,"LIB-DIRECTORY",system) /* ABI */ +LISPSYM(set_lib_directory,"SET-LIB-DIRECTORY",system) /* ABI */ /* ---------- PREDTYPE ---------- */ LISPSYM(eq,"EQ",lisp) LISPSYM(eql,"EQL",lisp) @@ -694,13 +699,13 @@ LISPSYM(listp,"LISTP",lisp) LISPSYM(proper_list_p,"PROPER-LIST-P",ext) LISPSYM(integerp,"INTEGERP",lisp) -LISPSYM(fixnump,"FIXNUMP",system) +LISPSYM(fixnump,"FIXNUMP",system) /* ABI */ LISPSYM(rationalp,"RATIONALP",lisp) LISPSYM(floatp,"FLOATP",lisp) -LISPSYM(short_float_p,"SHORT-FLOAT-P",system) -LISPSYM(single_float_p,"SINGLE-FLOAT-P",system) -LISPSYM(double_float_p,"DOUBLE-FLOAT-P",system) -LISPSYM(long_float_p,"LONG-FLOAT-P",system) +LISPSYM(short_float_p,"SHORT-FLOAT-P",system) /* ABI */ +LISPSYM(single_float_p,"SINGLE-FLOAT-P",system) /* ABI */ +LISPSYM(double_float_p,"DOUBLE-FLOAT-P",system) /* ABI */ +LISPSYM(long_float_p,"LONG-FLOAT-P",system) /* ABI */ LISPSYM(realp,"REALP",lisp) LISPSYM(complexp,"COMPLEXP",lisp) LISPSYM(streamp,"STREAMP",lisp) @@ -709,12 +714,12 @@ LISPSYM(readtablep,"READTABLEP",lisp) LISPSYM(hash_table_p,"HASH-TABLE-P",lisp) LISPSYM(pathnamep,"PATHNAMEP",lisp) -LISPSYM(logical_pathname_p,"LOGICAL-PATHNAME-P",system) +LISPSYM(logical_pathname_p,"LOGICAL-PATHNAME-P",system) /* ABI */ LISPSYM(characterp,"CHARACTERP",lisp) LISPSYM(functionp,"FUNCTIONP",lisp) LISPSYM(packagep,"PACKAGEP",lisp) LISPSYM(arrayp,"ARRAYP",lisp) -LISPSYM(simple_array_p,"SIMPLE-ARRAY-P",system) +LISPSYM(simple_array_p,"SIMPLE-ARRAY-P",system) /* ABI */ LISPSYM(bit_vector_p,"BIT-VECTOR-P",lisp) LISPSYM(vectorp,"VECTORP",lisp) LISPSYM(simple_vector_p,"SIMPLE-VECTOR-P",lisp) @@ -722,16 +727,16 @@ LISPSYM(simple_bit_vector_p,"SIMPLE-BIT-VECTOR-P",lisp) LISPSYM(type_of,"TYPE-OF",lisp) LISPSYM(defclos,"%DEFCLOS",clos) -LISPSYM(class_p,"CLASS-P",clos) +LISPSYM(class_p,"CLASS-P",clos) /* ABI */ LISPSYM(class_of,"CLASS-OF",clos) LISPSYM(find_class,"FIND-CLASS",clos) -LISPSYM(typep_class,"TYPEP-CLASS",clos) +LISPSYM(typep_class,"TYPEP-CLASS",clos) /* ABI */ LISPSYM(expand_deftype,"EXPAND-DEFTYPE",system) LISPSYM(coerce,"COERCE",lisp) LISPSYM(note_new_structure_class,"NOTE-NEW-STRUCTURE-CLASS",system) LISPSYM(note_new_standard_class,"NOTE-NEW-STANDARD-CLASS",system) LISPSYM(heap_statistics,"HEAP-STATISTICS",system) -LISPSYM(gc_statistics,"GC-STATISTICS",system) +LISPSYM(gc_statistics,"GC-STATISTICS",system) /* ABI */ LISPSYM(list_statistics,"LIST-STATISTICS",system) LISPSYM(heap_statistics_statistics,"HEAP-STATISTICS-STATISTICS",system) LISPSYM(gc_statistics_statistics,"GC-STATISTICS-STATISTICS",system) @@ -740,36 +745,36 @@ LISPSYM(record_store,"%RECORD-STORE",system) LISPSYM(record_length,"%RECORD-LENGTH",system) LISPSYM(pstructure_ref,"%%STRUCTURE-REF",system) -LISPSYM(structure_ref,"%STRUCTURE-REF",system) -LISPSYM(structure_store,"%STRUCTURE-STORE",system) -LISPSYM(make_structure,"%MAKE-STRUCTURE",system) +LISPSYM(structure_ref,"%STRUCTURE-REF",system) /* ABI */ +LISPSYM(structure_store,"%STRUCTURE-STORE",system) /* ABI */ +LISPSYM(make_structure,"%MAKE-STRUCTURE",system) /* ABI */ LISPSYM(copy_structure,"COPY-STRUCTURE",lisp) -LISPSYM(structure_type_p,"%STRUCTURE-TYPE-P",system) +LISPSYM(structure_type_p,"%STRUCTURE-TYPE-P",system) /* ABI */ LISPSYM(closure_name,"CLOSURE-NAME",system) LISPSYM(closure_codevec,"CLOSURE-CODEVEC",system) LISPSYM(closure_consts,"CLOSURE-CONSTS",system) LISPSYM(make_code_vector,"MAKE-CODE-VECTOR",system) LISPSYM(make_closure,"%MAKE-CLOSURE",system) -LISPSYM(make_constant_initfunction,"MAKE-CONSTANT-INITFUNCTION",system) +LISPSYM(make_constant_initfunction,"MAKE-CONSTANT-INITFUNCTION",system) /* ABI */ LISPSYM(constant_initfunction_p,"CONSTANT-INITFUNCTION-P",system) LISPSYM(closure_set_seclass,"CLOSURE-SET-SECLASS",system) LISPSYM(set_funcallable_instance_function,"SET-FUNCALLABLE-INSTANCE-FUNCTION",clos) -LISPSYM(copy_generic_function,"%COPY-GENERIC-FUNCTION",system) +LISPSYM(copy_generic_function,"%COPY-GENERIC-FUNCTION",system) /* ABI */ LISPSYM(generic_function_effective_method_function,"GENERIC-FUNCTION-EFFECTIVE-METHOD-FUNCTION",system) LISPSYM(make_load_time_eval,"MAKE-LOAD-TIME-EVAL",system) -LISPSYM(make_symbol_macro,"MAKE-SYMBOL-MACRO",system) +LISPSYM(make_symbol_macro,"MAKE-SYMBOL-MACRO",system) /* ABI */ LISPSYM(symbol_macro_p,"SYMBOL-MACRO-P",system) LISPSYM(symbol_macro_expand,"SYMBOL-MACRO-EXPAND",ext) -LISPSYM(make_macro,"MAKE-MACRO",system) +LISPSYM(make_macro,"MAKE-MACRO",system) /* ABI */ LISPSYM(macrop,"MACROP",system) LISPSYM(macro_expander,"MACRO-EXPANDER",system) LISPSYM(make_function_macro,"MAKE-FUNCTION-MACRO",system) LISPSYM(function_macro_p,"FUNCTION-MACRO-P",system) -LISPSYM(function_macro_function,"FUNCTION-MACRO-FUNCTION",system) +LISPSYM(function_macro_function,"FUNCTION-MACRO-FUNCTION",system) /* ABI */ LISPSYM(function_macro_expander,"FUNCTION-MACRO-EXPANDER",system) LISPSYM(finalize,"FINALIZE",ext) -LISPSYM(structure_object_p,"STRUCTURE-OBJECT-P",clos) -LISPSYM(std_instance_p,"STD-INSTANCE-P",clos) +LISPSYM(structure_object_p,"STRUCTURE-OBJECT-P",clos) /* ABI */ +LISPSYM(std_instance_p,"STD-INSTANCE-P",clos) /* ABI */ LISPSYM(funcallable_instance_p,"FUNCALLABLE-INSTANCE-P",clos) LISPSYM(allocate_metaobject_instance,"ALLOCATE-METAOBJECT-INSTANCE",clos) LISPSYM(allocate_std_instance,"ALLOCATE-STD-INSTANCE",clos) @@ -796,11 +801,11 @@ LISPSYM(make_weak_pointer,"MAKE-WEAK-POINTER",ext) LISPSYM(weak_pointer_p,"WEAK-POINTER-P",ext) LISPSYM(weak_pointer_value,"WEAK-POINTER-VALUE",ext) -LISPSYM(set_weak_pointer_value,"(SETF WEAK-POINTER-VALUE)",system) +LISPSYM(set_weak_pointer_value,"(SETF WEAK-POINTER-VALUE)",system) /* ABI */ LISPSYM(make_weak_list,"MAKE-WEAK-LIST",ext) LISPSYM(weak_list_p,"WEAK-LIST-P",ext) LISPSYM(weak_list_list,"WEAK-LIST-LIST",ext) -LISPSYM(set_weak_list_list,"(SETF WEAK-LIST-LIST)",system) +LISPSYM(set_weak_list_list,"(SETF WEAK-LIST-LIST)",system) /* ABI */ LISPSYM(make_weak_and_relation,"MAKE-WEAK-AND-RELATION",ext) LISPSYM(weak_and_relation_p,"WEAK-AND-RELATION-P",ext) LISPSYM(weak_and_relation_list,"WEAK-AND-RELATION-LIST",ext) @@ -811,31 +816,31 @@ LISPSYM(weak_mapping_p,"WEAK-MAPPING-P",ext) LISPSYM(weak_mapping_pair,"WEAK-MAPPING-PAIR",ext) LISPSYM(weak_mapping_value,"WEAK-MAPPING-VALUE",ext) -LISPSYM(set_weak_mapping_value,"(SETF WEAK-MAPPING-VALUE)",system) +LISPSYM(set_weak_mapping_value,"(SETF WEAK-MAPPING-VALUE)",system) /* ABI */ LISPSYM(make_weak_and_mapping,"MAKE-WEAK-AND-MAPPING",ext) LISPSYM(weak_and_mapping_p,"WEAK-AND-MAPPING-P",ext) LISPSYM(weak_and_mapping_pair,"WEAK-AND-MAPPING-PAIR",ext) LISPSYM(weak_and_mapping_value,"WEAK-AND-MAPPING-VALUE",ext) -LISPSYM(set_weak_and_mapping_value,"(SETF WEAK-AND-MAPPING-VALUE)",system) +LISPSYM(set_weak_and_mapping_value,"(SETF WEAK-AND-MAPPING-VALUE)",system) /* ABI */ LISPSYM(make_weak_or_mapping,"MAKE-WEAK-OR-MAPPING",ext) LISPSYM(weak_or_mapping_p,"WEAK-OR-MAPPING-P",ext) LISPSYM(weak_or_mapping_pair,"WEAK-OR-MAPPING-PAIR",ext) LISPSYM(weak_or_mapping_value,"WEAK-OR-MAPPING-VALUE",ext) -LISPSYM(set_weak_or_mapping_value,"(SETF WEAK-OR-MAPPING-VALUE)",system) +LISPSYM(set_weak_or_mapping_value,"(SETF WEAK-OR-MAPPING-VALUE)",system) /* ABI */ LISPSYM(make_weak_alist,"MAKE-WEAK-ALIST",ext) LISPSYM(weak_alist_p,"WEAK-ALIST-P",ext) LISPSYM(weak_alist_type,"WEAK-ALIST-TYPE",ext) LISPSYM(weak_alist_contents,"WEAK-ALIST-CONTENTS",ext) -LISPSYM(set_weak_alist_contents,"(SETF WEAK-ALIST-CONTENTS)",system) +LISPSYM(set_weak_alist_contents,"(SETF WEAK-ALIST-CONTENTS)",system) /* ABI */ LISPSYM(weak_alist_assoc,"WEAK-ALIST-ASSOC",ext) LISPSYM(weak_alist_rassoc,"WEAK-ALIST-RASSOC",ext) LISPSYM(weak_alist_value,"WEAK-ALIST-VALUE",ext) -LISPSYM(set_weak_alist_value,"(SETF WEAK-ALIST-VALUE)",system) +LISPSYM(set_weak_alist_value,"(SETF WEAK-ALIST-VALUE)",system) /* ABI */ /* ---------- SEQUENCE ---------- */ -LISPSYM(sequencep,"SEQUENCEP",system) +LISPSYM(sequencep,"SEQUENCEP",system) /* ABI */ LISPSYM(defseq,"%DEFSEQ",system) LISPSYM(elt,"ELT",lisp) -LISPSYM(setelt,"(SETF ELT)",system) +LISPSYM(setelt,"(SETF ELT)",system) /* ABI */ LISPSYM(subseq,"SUBSEQ",lisp) LISPSYM(copy_seq,"COPY-SEQ",lisp) LISPSYM(length,"LENGTH",lisp) @@ -889,28 +894,28 @@ /* ---------- STREAM ---------- */ LISPSYM(symbol_stream,"SYMBOL-STREAM",system) LISPSYM(make_synonym_stream,"MAKE-SYNONYM-STREAM",lisp) -LISPSYM(synonym_stream_p,"SYNONYM-STREAM-P",system) +LISPSYM(synonym_stream_p,"SYNONYM-STREAM-P",system) /* ABI */ LISPSYM(synonym_stream_symbol,"SYNONYM-STREAM-SYMBOL",lisp) LISPSYM(make_broadcast_stream,"MAKE-BROADCAST-STREAM",lisp) -LISPSYM(broadcast_stream_p,"BROADCAST-STREAM-P",system) +LISPSYM(broadcast_stream_p,"BROADCAST-STREAM-P",system) /* ABI */ LISPSYM(broadcast_stream_streams,"BROADCAST-STREAM-STREAMS",lisp) LISPSYM(make_concatenated_stream,"MAKE-CONCATENATED-STREAM",lisp) -LISPSYM(concatenated_stream_p,"CONCATENATED-STREAM-P",system) +LISPSYM(concatenated_stream_p,"CONCATENATED-STREAM-P",system) /* ABI */ LISPSYM(concatenated_stream_streams,"CONCATENATED-STREAM-STREAMS",lisp) LISPSYM(make_two_way_stream,"MAKE-TWO-WAY-STREAM",lisp) -LISPSYM(two_way_stream_p,"TWO-WAY-STREAM-P",system) +LISPSYM(two_way_stream_p,"TWO-WAY-STREAM-P",system) /* ABI */ LISPSYM(two_way_stream_input_stream,"TWO-WAY-STREAM-INPUT-STREAM",lisp) LISPSYM(two_way_stream_output_stream,"TWO-WAY-STREAM-OUTPUT-STREAM",lisp) LISPSYM(make_echo_stream,"MAKE-ECHO-STREAM",lisp) -LISPSYM(echo_stream_p,"ECHO-STREAM-P",system) +LISPSYM(echo_stream_p,"ECHO-STREAM-P",system) /* ABI */ LISPSYM(echo_stream_input_stream,"ECHO-STREAM-INPUT-STREAM",lisp) LISPSYM(echo_stream_output_stream,"ECHO-STREAM-OUTPUT-STREAM",lisp) LISPSYM(make_string_input_stream,"MAKE-STRING-INPUT-STREAM",lisp) -LISPSYM(string_input_stream_index,"STRING-INPUT-STREAM-INDEX",system) +LISPSYM(string_input_stream_index,"STRING-INPUT-STREAM-INDEX",system) /* ABI */ LISPSYM(make_string_output_stream,"MAKE-STRING-OUTPUT-STREAM",lisp) LISPSYM(get_output_stream_string,"GET-OUTPUT-STREAM-STRING",lisp) -LISPSYM(make_string_push_stream,"MAKE-STRING-PUSH-STREAM",system) -LISPSYM(string_stream_p,"STRING-STREAM-P",system) +LISPSYM(make_string_push_stream,"MAKE-STRING-PUSH-STREAM",system) /* ABI */ +LISPSYM(string_stream_p,"STRING-STREAM-P",system) /* ABI */ LISPSYM(make_buffered_input_stream,"MAKE-BUFFERED-INPUT-STREAM",ext) LISPSYM(buffered_input_stream_index,"BUFFERED-INPUT-STREAM-INDEX",system) LISPSYM(make_buffered_output_stream,"MAKE-BUFFERED-OUTPUT-STREAM",ext) @@ -919,13 +924,13 @@ LISPSYM(make_generic_stream,"MAKE-GENERIC-STREAM",gstream) LISPSYM(generic_stream_p,"GENERIC-STREAM-P",gstream) #endif -LISPSYM(file_stream_p,"FILE-STREAM-P",system) +LISPSYM(file_stream_p,"FILE-STREAM-P",system) /* ABI */ #ifdef KEYBOARD LISPSYM(make_keyboard_stream,"MAKE-KEYBOARD-STREAM",system) #endif LISPSYM(terminal_raw,"TERMINAL-RAW",system) #ifdef SCREEN -LISPSYM(make_window,"MAKE-WINDOW",screen) +LISPSYM(make_window,"MAKE-WINDOW",screen) /* ABI */ LISPSYM(window_size,"WINDOW-SIZE",screen) LISPSYM(window_cursor_position,"WINDOW-CURSOR-POSITION",screen) LISPSYM(set_window_cursor_position,"SET-WINDOW-CURSOR-POSITION",screen) @@ -981,7 +986,7 @@ LISPSYM(built_in_stream_element_type,"BUILT-IN-STREAM-ELEMENT-TYPE",system) LISPSYM(built_in_stream_set_element_type,"BUILT-IN-STREAM-SET-ELEMENT-TYPE",system) LISPSYM(stream_external_format,"STREAM-EXTERNAL-FORMAT",lisp) -LISPSYM(set_stream_external_format,"SET-STREAM-EXTERNAL-FORMAT",system) +LISPSYM(set_stream_external_format,"SET-STREAM-EXTERNAL-FORMAT",system) /* ABI */ LISPSYM(interactive_stream_p,"INTERACTIVE-STREAM-P",lisp) LISPSYM(built_in_stream_close,"BUILT-IN-STREAM-CLOSE",system) LISPSYM(read_byte,"READ-BYTE",lisp) @@ -1000,16 +1005,16 @@ LISPSYM(allow_read_eval,"ALLOW-READ-EVAL",system) LISPSYM(defgray,"%DEFGRAY",system) /* ---------- SYMBOL ---------- */ -LISPSYM(putd,"%PUTD",system) +LISPSYM(putd,"%PUTD",system) /* ABI */ LISPSYM(find_subr,"%FIND-SUBR",system) -LISPSYM(proclaim_constant,"%PROCLAIM-CONSTANT",system) +LISPSYM(proclaim_constant,"%PROCLAIM-CONSTANT",system) /* ABI */ LISPSYM(get,"GET",lisp) LISPSYM(getf,"GETF",lisp) -LISPSYM(putf,"%PUTF",system) +LISPSYM(putf,"%PUTF",system) /* ABI */ LISPSYM(remf,"%REMF",system) LISPSYM(get_properties,"GET-PROPERTIES",lisp) -LISPSYM(putplist,"%PUTPLIST",system) -LISPSYM(put,"%PUT",system) +LISPSYM(putplist,"%PUTPLIST",system) /* ABI */ +LISPSYM(put,"%PUT",system) /* ABI */ LISPSYM(remprop,"REMPROP",lisp) LISPSYM(symbol_package,"SYMBOL-PACKAGE",lisp) LISPSYM(symbol_plist,"SYMBOL-PLIST",lisp) @@ -1121,7 +1126,7 @@ LISPSYM(exquo,"EXQUO",ext) LISPSYM(mod_expt,"MOD-EXPT",ext) LISPSYM(long_float_digits,"LONG-FLOAT-DIGITS",ext) -LISPSYM(set_long_float_digits,"(SETF LONG-FLOAT-DIGITS)",system) +LISPSYM(set_long_float_digits,"(SETF LONG-FLOAT-DIGITS)",system) /* ABI */ LISPSYM(log2,"LOG2",system) LISPSYM(log10,"LOG10",system) /* ---------- FOREIGN ---------- */ @@ -1129,36 +1134,36 @@ LISPSYM(validp,"VALIDP",ffi) LISPSYM(set_validp,"SET-VALIDP",ffi) LISPSYM(set_foreign_pointer,"SET-FOREIGN-POINTER",ffi) -LISPSYM(sizeof,"%SIZEOF",ffi) -LISPSYM(bitsizeof,"%BITSIZEOF",ffi) -LISPSYM(lookup_foreign_variable,"LOOKUP-FOREIGN-VARIABLE",ffi) +LISPSYM(sizeof,"%SIZEOF",ffi) /* ABI */ +LISPSYM(bitsizeof,"%BITSIZEOF",ffi) /* ABI */ +LISPSYM(lookup_foreign_variable,"LOOKUP-FOREIGN-VARIABLE",ffi) /* ABI */ LISPSYM(unsigned_foreign_address,"UNSIGNED-FOREIGN-ADDRESS",ffi) LISPSYM(foreign_address_unsigned,"FOREIGN-ADDRESS-UNSIGNED",ffi) LISPSYM(foreign_value,"FOREIGN-VALUE",ffi) LISPSYM(set_foreign_value,"SET-FOREIGN-VALUE",ffi) -LISPSYM(foreign_type,"FOREIGN-TYPE",ffi) -LISPSYM(element,"%ELEMENT",ffi) -LISPSYM(deref,"%DEREF",ffi) -LISPSYM(slot,"%SLOT",ffi) -LISPSYM(cast,"%CAST",ffi) -LISPSYM(offset,"%OFFSET",ffi) -LISPSYM(exec_on_stack,"EXEC-ON-STACK",ffi) +LISPSYM(foreign_type,"FOREIGN-TYPE",ffi) /* ABI */ +LISPSYM(element,"%ELEMENT",ffi) /* ABI */ +LISPSYM(deref,"%DEREF",ffi) /* ABI */ +LISPSYM(slot,"%SLOT",ffi) /* ABI */ +LISPSYM(cast,"%CAST",ffi) /* ABI */ +LISPSYM(offset,"%OFFSET",ffi) /* ABI */ +LISPSYM(exec_on_stack,"EXEC-ON-STACK",ffi) /* ABI */ LISPSYM(call_with_foreign_string,"CALL-WITH-FOREIGN-STRING",ffi) LISPSYM(foreign_allocate,"FOREIGN-ALLOCATE",ffi) LISPSYM(foreign_free,"FOREIGN-FREE",ffi) -LISPSYM(lookup_foreign_function,"LOOKUP-FOREIGN-FUNCTION",ffi) +LISPSYM(lookup_foreign_function,"LOOKUP-FOREIGN-FUNCTION",ffi) /* ABI */ LISPSYM(foreign_call_out,"FOREIGN-CALL-OUT",ffi) #if defined(WIN32_NATIVE) || defined(HAVE_DLOPEN) -LISPSYM(foreign_library,"FOREIGN-LIBRARY",ffi) -LISPSYM(foreign_library_variable,"FOREIGN-LIBRARY-VARIABLE",ffi) -LISPSYM(foreign_library_function,"FOREIGN-LIBRARY-FUNCTION",ffi) +LISPSYM(foreign_library,"FOREIGN-LIBRARY",ffi) /* ABI */ +LISPSYM(foreign_library_variable,"FOREIGN-LIBRARY-VARIABLE",ffi) /* ABI */ +LISPSYM(foreign_library_function,"FOREIGN-LIBRARY-FUNCTION",ffi) /* ABI */ #endif /* WIN32_NATIVE || HAVE_DLOPEN */ #endif /* DYNAMIC_FFI */ /* ---------- ZTHREAD ---------- */ #ifdef MULTITHREAD LISPSYM(make_process,"MAKE-PROCESS",mt) LISPSYM(process_wait,"PROCESS-WAIT",mt) -LISPSYM(call_with_timeout,"CALL-WITH-TIMEOUT",mt) +LISPSYM(call_with_timeout,"CALL-WITH-TIMEOUT",mt) /* ABI */ LISPSYM(process_yield,"PROCESS-YIELD",mt) LISPSYM(process_kill,"PROCESS-KILL",mt) LISPSYM(process_interrupt,"PROCESS-INTERRUPT",mt) @@ -1428,7 +1433,7 @@ LISPSYM(cerror,"CERROR",lisp) /* function for ERROR */ LISPSYM(check_value,"CHECK-VALUE",system) /* function for ERROR */ LISPSYM(correctable_error,"CORRECTABLE-ERROR",system) /* function for ERROR */ -LISPSYM(prompt_for_new_value,"PROMPT-FOR-NEW-VALUE",system) /* ditto */ +LISPSYM(prompt_for_new_value,"PROMPT-FOR-NEW-VALUE",system) /* function for ERROR */ /* ABI */ LISPSYM(continue,"CONTINUE",lisp) /* restart for ERROR */ LISPSYM(break_on_signals,"*BREAK-ON-SIGNALS*",lisp) /* variable for ERROR */ LISPSYM(safe_typep,"SAFE-TYPEP",system) /* function for ERROR */ @@ -1579,15 +1584,15 @@ LISPSYM(print_indent_lists,"*PRINT-INDENT-LISTS*",custom) /* IO variable */ LISPSYM(print_pretty_fill,"*PRINT-PRETTY-FILL*",custom) /* IO variable */ LISPSYM(print_circle_table,"*PRINT-CIRCLE-TABLE*",system) /* IO variable */ -LISPSYM(prin_level,"*PRIN-LEVEL*",system) /* IO variable */ +LISPSYM(prin_level,"*PRIN-LEVEL*",system) /* IO variable */ /* ABI */ LISPSYM(prin_lines,"*PRIN-LINES*",system) /* IO variable */ -LISPSYM(prin_line_prefix,"*PRIN-LINE-PREFIX*",system) /* IO variable */ -LISPSYM(prin_miserp,"*PRIN-MISERP*",system) /* IO variable */ +LISPSYM(prin_line_prefix,"*PRIN-LINE-PREFIX*",system) /* IO variable */ /* ABI */ +LISPSYM(prin_miserp,"*PRIN-MISERP*",system) /* IO variable */ /* ABI */ LISPSYM(prin_pprinter,"*PRIN-PPRINTER*",system) /* IO variable */ -LISPSYM(prin_indentation,"*PRIN-INDENTATION*",system) /* IO variable */ +LISPSYM(prin_indentation,"*PRIN-INDENTATION*",system) /* IO variable */ /* ABI */ LISPSYM(prin_bqlevel,"*PRIN-BQLEVEL*",system) /* IO variable */ -LISPSYM(prin_stream,"*PRIN-STREAM*",system) /* IO variable */ -LISPSYM(prin_linelength,"*PRIN-LINELENGTH*",system) /* IO variable */ +LISPSYM(prin_stream,"*PRIN-STREAM*",system) /* IO variable */ /* ABI */ +LISPSYM(prin_linelength,"*PRIN-LINELENGTH*",system) /* IO variable */ /* ABI */ LISPSYM(prin_l1,"*PRIN-L1*",system) /* IO variable */ LISPSYM(prin_lm,"*PRIN-LM*",system) /* IO variable */ LISPSYM(prin_rpar,"*PRIN-RPAR*",system) /* IO variable */ @@ -1597,8 +1602,8 @@ LISPSYM(prin_jbstrings,"*PRIN-JBSTRINGS*",system) /* IO variable */ LISPSYM(prin_jbmodus,"*PRIN-JBMODUS*",system) /* IO variable */ LISPSYM(prin_jblpos,"*PRIN-JBLPOS*",system) /* IO variable */ -LISPSYM(format_tabulate,"FORMAT-TABULATE",system) /* see io.d and format.lisp */ -LISPSYM(load_forms,"*LOAD-FORMS*",system) /* see IO, COMPILER, LOADFORM */ +LISPSYM(format_tabulate,"FORMAT-TABULATE",system) /* see io.d and format.lisp */ /* ABI */ +LISPSYM(load_forms,"*LOAD-FORMS*",system) /* see IO, COMPILER, LOADFORM */ /* ABI */ LISPSYM(terminal_read_open_object,"*TERMINAL-READ-OPEN-OBJECT*",system) /* IO */ LISPSYM(terminal_read_stream,"*TERMINAL-READ-STREAM*",system) /* IO */ LISPSYM(backquote,"BACKQUOTE",system) /* marker in IO */ @@ -1729,7 +1734,7 @@ LISPSYM(traced_definition,"TRACED-DEFINITION",system) /* property in SYMBOL */ LISPSYM(gensym_counter,"*GENSYM-COUNTER*",lisp) /* variable in SYMBOL */ LISPSYM(pprint_first_newline,"*PPRINT-FIRST-NEWLINE*",custom) /* io.d:pr_enter_1() */ -LISPSYM(inhibit_floating_point_underflow,"*INHIBIT-FLOATING-POINT-UNDERFLOW*",system) /* variable in LISPARIT */ +LISPSYM(inhibit_floating_point_underflow,"*INHIBIT-FLOATING-POINT-UNDERFLOW*",system) /* variable in LISPARIT */ /* ABI */ LISPSYM(warn_on_floating_point_contagion,"*WARN-ON-FLOATING-POINT-CONTAGION*",custom) LISPSYM(floating_point_contagion_ansi,"*FLOATING-POINT-CONTAGION-ANSI*",custom) LISPSYM(warn_on_floating_point_rational_contagion,"*WARN-ON-FLOATING-POINT-RATIONAL-CONTAGION*",custom) Index: keyboard.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/keyboard.lisp,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- keyboard.lisp 20 Jan 2004 11:32:09 -0000 1.5 +++ keyboard.lisp 21 Oct 2004 11:18:38 -0000 1.6 @@ -10,7 +10,7 @@ (defmacro with-keyboard (&body body) `(SYS::EXEC-WITH-KEYBOARD (FUNCTION (LAMBDA () (PROGN ,@body)))) ) -(defun exec-with-keyboard (fun) +(defun exec-with-keyboard (fun) ; ABI #+WIN32 ; *keyboard-input* existiert schon (funcall fun) #+UNIX Index: defs1.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/defs1.lisp,v retrieving revision 1.40 retrieving revision 1.41 diff -u -d -r1.40 -r1.41 --- defs1.lisp 6 Oct 2004 19:27:36 -0000 1.40 +++ defs1.lisp 21 Oct 2004 11:18:37 -0000 1.41 @@ -95,11 +95,11 @@ 'with-package-iterator ':internal ':external ':inherited symboltype)))) (let ((iterfun (gensym "WPI"))) - `(let ((,iterfun (package-iterator-function - ,pack-list ',(remove-duplicates types)))) - (macrolet ((,name () '(funcall ,iterfun))) + `(LET ((,iterfun (PACKAGE-ITERATOR-FUNCTION + ,pack-list ',(remove-duplicates types)))) + (MACROLET ((,name () '(FUNCALL ,iterfun))) ,@body)))) -(defun package-iterator-function (pack-list symbol-types) +(defun package-iterator-function (pack-list symbol-types) ; ABI (let ((iterstates (mapcar #'(lambda (pack) (sys::package-iterator pack symbol-types)) (if (listp pack-list) pack-list (list pack-list))))) @@ -116,7 +116,7 @@ ;; The list of packages that will be locked by SAVEINITMEM. ;; Also the default packages to unlock by WITHOUT-PACKAGE-LOCK. -(defvar *system-package-list* +(defvar *system-package-list* ; ABI '("SYSTEM" "LISP" "EXT" "CUSTOM" "I18N" "GRAY" "CHARSET" "CLOS" #+sockets "SOCKET" #+generic-streams "GSTREAM" #+syscalls "POSIX" #+ffi "FFI" #+(or) "AFFI" #+screen "SCREEN")) @@ -492,7 +492,7 @@ ;;; functions for time (Chapter 25.4.1) -;; help function for macro TIME +;; help function for macro TIME ; ABI (defun %time (new-real1 new-real2 new-run1 new-run2 new-gc1 new-gc2 new-space1 new-space2 new-gccount old-real1 old-real2 old-run1 old-run2 old-gc1 old-gc2 Index: clos-method4.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/clos-method4.lisp,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- clos-method4.lisp 19 Oct 2004 10:59:02 -0000 1.3 +++ clos-method4.lisp 21 Oct 2004 11:18:39 -0000 1.4 @@ -15,5 +15,5 @@ (setf (fdefinition 'make-instance-<standard-writer-method>) #'make-instance) ;; Make creation of method instances customizable. -(setf (fdefinition 'allocate-method-instance) #'allocate-instance) -(setf (fdefinition 'initialize-method-instance) #'initialize-instance) +(setf (fdefinition 'allocate-method-instance) #'allocate-instance) ; ABI +(setf (fdefinition 'initialize-method-instance) #'initialize-instance) ; ABI Index: screen.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/screen.lisp,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- screen.lisp 22 Jun 2004 20:37:23 -0000 1.8 +++ screen.lisp 21 Oct 2004 11:18:38 -0000 1.9 @@ -35,7 +35,7 @@ *new-window* ) ) -(proclaim '(special *window*)) +(proclaim '(special *window*)) ; ABI (defun read-keyboard-char (stream) (declare (ignore stream)) Index: international.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/international.lisp,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- international.lisp 23 Feb 2002 05:19:47 -0000 1.3 +++ international.lisp 21 Oct 2004 11:18:38 -0000 1.4 @@ -40,7 +40,7 @@ ;; (defvar *all-languages* nil) -(defun assert-language (lang) +(defun assert-language (lang) ; ABI (let ((h (assoc lang *all-languages*))) (unless h (error-of-type 'error @@ -49,7 +49,7 @@ ) ) (cdr h) ) ) -(defun ensure-language (lang parent-lang) +(defun ensure-language (lang parent-lang) ; ABI (let ((h (assoc lang *all-languages*))) (if h (unless (eq (cdr h) parent-lang) @@ -123,7 +123,7 @@ ) ) ) ;; Default defaulter: Look up for another language. (defvar *localized-recursion* nil) -(defun definternational-default (symbol default-language) +(defun definternational-default (symbol default-language) ; ABI #'(lambda (language) (if (eq *localized-recursion* symbol) ; catch endless recursion (error-of-type 'error Index: foreign1.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/foreign1.lisp,v retrieving revision 1.66 retrieving revision 1.67 diff -u -d -r1.66 -r1.67 --- foreign1.lisp 19 Oct 2004 11:15:32 -0000 1.66 +++ foreign1.lisp 21 Oct 2004 11:18:38 -0000 1.67 @@ -337,7 +337,7 @@ (:STDC-STDCALL (+ ff-language-ansi-c ff-language-stdcall)))) ;; the default foreign language -(defvar *foreign-language* nil) +(defvar *foreign-language* nil) ; ABI (defmacro default-foreign-language (lang) (language-to-flag lang) ; error checking @@ -750,7 +750,7 @@ (defmacro C-LINES (format-string &rest args) `(EVAL-WHEN (COMPILE) (DO-C-LINES ,format-string ,@args))) -(defun do-c-lines (format-string &rest args) +(defun do-c-lines (format-string &rest args) ; ABI (when (compiler::prepare-coutput-file) (prepare-module) (apply #'format *coutput-stream* format-string args))) @@ -813,7 +813,7 @@ (FOREIGN-VALUE (LOAD-TIME-VALUE (GET ',name 'FOREIGN-VARIABLE)))) ',name))) -(defun note-c-var (c-name type flags) +(defun note-c-var (c-name type flags) ; ABI (when (compiler::prepare-coutput-file) (prepare-module) (push (list c-name (parse-c-type type) flags) *variable-list*))) @@ -857,6 +857,7 @@ (PARSE-C-TYPE ,c-type) . ,(if init-p (list init))))) +; ABI (defun exec-with-foreign-string (thunk string &key (encoding #+UNICODE custom:*foreign-encoding* #-UNICODE custom:*default-file-encoding*) @@ -920,7 +921,7 @@ `(LOOKUP-FOREIGN-FUNCTION ',c-name ,parsed-function)))) ',name))) -(defun note-c-fun (c-name alist whole) +(defun note-c-fun (c-name alist whole) ; ABI (when (compiler::prepare-coutput-file) (prepare-module) (push (list c-name (parse-c-function alist whole) @@ -962,7 +963,7 @@ (NOTE-C-CALL-IN ',name ',c-name ',alist ',whole-form)) ',name))) -(defun note-c-call-in (name c-name alist whole) +(defun note-c-call-in (name c-name alist whole) ; ABI (when (compiler::prepare-coutput-file) (prepare-module) (let* ((fvd (parse-c-function alist whole)) Index: macros1.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/macros1.lisp,v retrieving revision 1.20 retrieving revision 1.21 diff -u -d -r1.20 -r1.21 --- macros1.lisp 22 Aug 2004 10:48:25 -0000 1.20 +++ macros1.lisp 21 Oct 2004 11:18:38 -0000 1.21 @@ -80,17 +80,17 @@ ',symbol)))) ; For inhibiting warnings about redefining constants when the old and the new ; value are the same string / bit vector: -(defmacro constant-eql (new-form new-value old-value) +(defmacro constant-eql (new-form new-value old-value) ; ABI (declare (ignore new-form)) `(EQL ,new-value ,old-value)) ; If new-value is known to be an immutable string / bit vector and old-value ; is the same string / bit vector, this can return T by using EQUAL instead of ; EQL. -(defun loose-constant-eql (new-value old-value) +(defun loose-constant-eql (new-value old-value) ; ABI (and (equal (type-of new-value) (type-of old-value)) (equal new-value old-value))) ; The redefinition warning. -(defun constant-warning (symbol form) +(defun constant-warning (symbol form) ; ABI (warn (TEXT "~S redefines the constant ~S. Its old value was ~S.") form symbol (symbol-value symbol))) Index: compiler.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/compiler.lisp,v retrieving revision 1.221 retrieving revision 1.222 diff -u -d -r1.221 -r1.222 --- compiler.lisp 20 Oct 2004 11:28:07 -0000 1.221 +++ compiler.lisp 21 Oct 2004 11:18:37 -0000 1.222 @@ -3125,7 +3125,7 @@ :test #'eq))))))) ;; DEFCONSTANT when compiling -(defun c-PROCLAIM-CONSTANT (symbol initial-value-form) +(defun c-PROCLAIM-CONSTANT (symbol initial-value-form) ; ABI (when *compiling-from-file* (pushnew symbol *known-special-vars* :test #'eq) (when (c-constantp initial-value-form) @@ -3133,7 +3133,7 @@ *constant-special-vars*)))) ;; DEFUN when compiling -(defun c-DEFUN (symbol signature &optional lambdabody (type 'defun)) +(defun c-DEFUN (symbol signature &optional lambdabody (type 'defun)) ; ABI (when *compiling* ; c-DEFUN can also be called by the Expander! (when *compiling-from-file* (let ((kf (assoc symbol *known-functions* :test #'equal))) @@ -6430,7 +6430,7 @@ (argvar1 (gensym)) (argvar2 (gensym))) (c-form `(LET* ((,argvar1 ,arg1) (,argvar2 ,arg2)) - (sys::%svstore ,arg3 ,argvar1 ,argvar2))))) + (SYS::%SVSTORE ,arg3 ,argvar1 ,argvar2))))) (defun c-EQ () (test-list *form* 3 3) @@ -6497,7 +6497,7 @@ (mapcap #'(lambda (restvar) `(,restvar (CDR ,restvar))) restvars)) (proclaim '(inline copy-list-lax)) -(defun copy-list-lax (obj) +(defun copy-list-lax (obj) ; ABI "Like COPY-LIST, but return the argument when it is not a LIST." (if (consp obj) (copy-list obj) obj)) @@ -6521,14 +6521,14 @@ ,erg)))) ((NCONC) #'(lambda (itemvars) - `(let ((,tmp (FUNCALL ,funform ,@itemvars))) - (if (CONSP ,erg) + `(LET ((,tmp (FUNCALL ,funform ,@itemvars))) + (IF (CONSP ,erg) (SETF ,tail (LAST ,tail) (CDR ,tail) ,tmp) (SETQ ,erg ,tmp ,tail ,erg))))) ((APPEND) #'(lambda (itemvars) - `(let ((,tmp (COPY-LIST-LAX (FUNCALL ,funform ,@itemvars)))) - (if (CONSP ,erg) + `(LET ((,tmp (COPY-LIST-LAX (FUNCALL ,funform ,@itemvars)))) + (IF (CONSP ,erg) (SETF ,tail (LAST ,tail) (CDR ,tail) ,tmp) (SETQ ,erg ,tmp ,tail ,erg)))))) blockname @@ -6558,15 +6558,15 @@ ((CONS) `(SETQ ,erg (,adjoin-fun (FUNCALL ,funform ,@restvars) ,erg))) ((NCONC) - `(let ((,tmp (FUNCALL ,funform ,@restvars))) - (if (consp ,erg) - (setf ,tail (last ,tail) (cdr ,tail) ,tmp) - (setq ,erg ,tmp ,tail ,erg)))) + `(LET ((,tmp (FUNCALL ,funform ,@restvars))) + (IF (CONSP ,erg) + (SETF ,tail (LAST ,tail) (CDR ,tail) ,tmp) + (SETQ ,erg ,tmp ,tail ,erg)))) ((APPEND) - `(let ((,tmp (copy-list-lax (FUNCALL ,funform ,@restvars)))) - (if (consp ,erg) - (setf ,tail (last ,tail) (cdr ,tail) ,tmp) - (setq ,erg ,tmp ,tail ,erg))))) + `(LET ((,tmp (COPY-LIST-LAX (FUNCALL ,funform ,@restvars)))) + (IF (CONSP ,erg) + (SETF ,tail (LAST ,tail) (CDR ,tail) ,tmp) + (SETQ ,erg ,tmp ,tail ,erg))))) (SETQ ,@(shift-vars restvars)) (GO ,tag)))) ,(case adjoin-fun @@ -6726,9 +6726,9 @@ (clos::class-p h) (eq (clos:class-name h) type)) (return-from c-TYPEP - (c-form `(CLOS::TYPEP-CLASS ,objform - (LOAD-TIME-VALUE (CLOS:FIND-CLASS - ',type)))))))) + (c-form + `(CLOS::TYPEP-CLASS ,objform + (LOAD-TIME-VALUE (CLOS:FIND-CLASS ',type)))))))) ((and (consp type) (symbolp (first type))) (catch 'c-TYPEP (cond ((and (eq (first type) 'SATISFIES) @@ -6848,7 +6848,7 @@ (i-val (and (c-constantp index) (c-constant-value index)))) (if (simple-index-p i-val '(SETF NTH)) (c-form - `(setf (,(svref #(FIRST SECOND THIRD FOURTH FIFTH SIXTH SEVENTH + `(SETF (,(svref #(FIRST SECOND THIRD FOURTH FIFTH SIXTH SEVENTH EIGHTH NINTH TENTH) i-val) ,list) ,value)) (c-GLOBAL-FUNCTION-CALL-form `(SYSTEM::%SETNTH ,index ,list ,value))))) ) Index: macros2.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/macros2.lisp,v retrieving revision 1.25 retrieving revision 1.26 diff -u -d -r1.25 -r1.26 --- macros2.lisp 12 Oct 2004 11:11:47 -0000 1.25 +++ macros2.lisp 21 Oct 2004 11:18:38 -0000 1.26 @@ -22,17 +22,17 @@ condclauselist)))) `(LET ((,tempvar ,keyform)) (COND ,@(nreverse condclauselist))))) ;; ---------------------------------------------------------------------------- -(defun type-error-string () +(defun type-error-string () ; ABI (TEXT "~A~%The value is: ~S")) -(defun check-type-error-string (place string typespec) +(defun check-type-error-string (place string typespec) ; ABI (format nil (TEXT "The value of ~S should be ~:[of type ~S~;~:*~A~].") place string typespec)) -(defun report-one-new-value-string () +(defun report-one-new-value-string () ; ABI (TEXT "You may input a new value for ~S.")) (defun report-one-new-value-string-instead () (TEXT "You may input a value to be used instead~@[ of ~S~].")) -(defun prompt-for-new-value-string () +(defun prompt-for-new-value-string () ; ABI (concatenate 'string "~%" (TEXT "New ~S: "))) (defmacro check-type (place typespec &optional (string nil)) (let ((tag1 (gensym)) @@ -49,11 +49,11 @@ (GO ,tag1) ,tag2))) ;; ---------------------------------------------------------------------------- -(defun report-no-new-value-string () +(defun report-no-new-value-string () ; ABI (TEXT "Retry")) -(defun report-new-values-string () +(defun report-new-values-string () ; ABI (TEXT "You may input new values for ~S.")) -(defun assert-error-string (test-form) +(defun assert-error-string (test-form) ; ABI (format nil (TEXT "~S must evaluate to a non-NIL value.") test-form)) @@ -79,11 +79,11 @@ (GO ,tag1) ,tag2))) ;; ---------------------------------------------------------------------------- -(defun typecase-error-string (keyform typelist) +(defun typecase-error-string (keyform typelist) ; ABI (format nil (TEXT "The value of ~S must be of one of the types ~{~S~^, ~}") keyform typelist)) -(defun case-error-string (keyform caselist) +(defun case-error-string (keyform caselist) ; ABI (format nil (TEXT "The value of ~S must be one of ~{~S~^, ~}") keyform caselist)) @@ -206,7 +206,7 @@ (LAMBDA (<DEFTYPE-FORM>) ,mainform))) (SYS::%SET-DOCUMENTATION ',name 'TYPE ',docstring) ',name)))))) -(defun type-call-error (deftype-form) +(defun type-call-error (deftype-form) ; ABI (error-of-type 'error (TEXT "The deftype expander for ~S may not be called with ~S arguments.") (car deftype-form) (1- (length deftype-form)))) @@ -227,7 +227,7 @@ (SYSTEM::SET-SYMBOL-VALUE ',symbol (SYSTEM::MAKE-SYMBOL-MACRO ',expansion))) ',symbol)) -(defun check-not-special-variable-p (symbol) +(defun check-not-special-variable-p (symbol) ; ABI (when (special-variable-p symbol) (error-of-type 'program-error (TEXT "~S: the symbol ~S names a global variable") @@ -339,10 +339,10 @@ (PROGN ,@body-rest) (CLOSE ,var))))) #+UNIX -(defun make-printer-stream (&key (external-format :default)) +(defun make-printer-stream (&key (external-format :default)) ; ABI (make-pipe-output-stream "lpr" :external-format external-format)) #+WIN32 -(defun make-printer-stream (&key (external-format :default)) +(defun make-printer-stream (&key (external-format :default)) ; ABI (open "prn" :direction :output :external-format external-format)) ;; ---------------------------------------------------------------------------- (in-package "EXT") Index: init.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/init.lisp,v retrieving revision 1.191 retrieving revision 1.192 diff -u -d -r1.191 -r1.192 --- init.lisp 19 Oct 2004 18:06:20 -0000 1.191 +++ init.lisp 21 Oct 2004 11:18:38 -0000 1.192 @@ -522,7 +522,7 @@ :value-type 'list :test 'stablehash-equal :warn-if-needs-rehash-after-gc t :size 1000)) ; :weak :key (sys::%putd 'sys::%set-documentation - (function sys::%set-documentation (lambda (symbol doctype value) + (function sys::%set-documentation (lambda (symbol doctype value) ; ABI #| ;; cannot use due to bootstrapping (if value (setf (getf (gethash symbol *documentation*) doctype) value) @@ -574,7 +574,7 @@ (system::%set-documentation symbol 'sys::file cur-file)))))) (sys::%putd 'sys::remove-old-definitions - (function sys::remove-old-definitions (lambda (symbol) + (function sys::remove-old-definitions (lambda (symbol) ; ABI ;; removes the old function-definitions of a symbol (when (special-operator-p symbol) (error-of-type 'error @@ -597,12 +597,12 @@ ;; THE-ENVIRONMENT as in SCHEME (sys::%putd '%the-environment - (function %the-environment (lambda (form env) + (function %the-environment (lambda (form env) ; ABI (declare (ignore form)) (sys::svstore env 0 (svref (svref env 0) 2)) ; nuke *evalhook* binding env))) (sys::%put... [truncated message content] |