movitz-cvs

movitz-cvs@common-lisp.net

2595 discussions

[movitz-cvs] CVS update: movitz/losp/muerte/io-port.lisp
by Frode Vatvedt Fjeld 26 Feb '04

26 Feb '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv12032 Modified Files: io-port.lisp Log Message: Fixed %io-port-write-succession for :16-bit. Date: Thu Feb 26 06:18:29 2004 Author: ffjeld Index: movitz/losp/muerte/io-port.lisp diff -u movitz/losp/muerte/io-port.lisp:1.7 movitz/losp/muerte/io-port.lisp:1.8 --- movitz/losp/muerte/io-port.lisp:1.7 Tue Feb 3 05:02:59 2004 +++ movitz/losp/muerte/io-port.lisp Thu Feb 26 06:18:29 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Mar 21 22:14:08 2001 ;;;; -;;;; $Id: io-port.lisp,v 1.7 2004/02/03 10:02:59 ffjeld Exp $ +;;;; $Id: io-port.lisp,v 1.8 2004/02/26 11:18:29 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -306,8 +306,8 @@ (:cmpl :ecx (:esp)) (:jbe 'end-io-read-loop) (:inw :dx :ax) - (:addl 1 :ecx) - (:movw :ax (:ebx ,(+ offset -2) (:ecx 2))) + (:addl 2 :ecx) + (:movw :ax (:ebx ,(+ offset -2) :ecx)) (:jmp 'io-read-loop) (:popl :eax) ; increment :esp, and put a lispval in :eax. end-io-read-loop))) @@ -439,8 +439,8 @@ io-read-loop (:cmpl :ecx (:esp)) (:jbe 'end-io-read-loop) - (:addl 1 :ecx) - (:movw (:ebx ,(+ offset -2) (:ecx 2)) :ax) + (:addl 2 :ecx) + (:movw (:ebx ,(+ offset -2) :ecx) :ax) (:outw :ax :dx) (:jmp 'io-read-loop) (:popl :eax) ; increment :esp, and put a lispval in :eax.

1 0

[movitz-cvs] CVS update: movitz/compiler.lisp
by Frode Vatvedt Fjeld 22 Feb '04

22 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv3232 Modified Files: compiler.lisp Log Message: Removed a stupid bug in compile-self-evaluating that caused any double-quoted form to be compiled as t. Also, fixed the print-object method for bindings. Date: Sun Feb 22 10:55:04 2004 Author: ffjeld Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.31 movitz/compiler.lisp:1.32 --- movitz/compiler.lisp:1.31 Fri Feb 20 10:08:51 2004 +++ movitz/compiler.lisp Sun Feb 22 10:55:03 2004 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.31 2004/02/20 15:08:51 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.32 2004/02/22 15:55:03 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -2089,7 +2089,8 @@ (binding-name object) (unless (eq object (binding-target object)) (binding-name (binding-target object))) - (when (and (slot-boundp object 'store-type) + (when (and (slot-exists-p object 'store-type) + (slot-boundp object 'store-type) (binding-store-type object)) (apply #'encoded-type-decode (binding-store-type object))))))) @@ -5244,7 +5245,7 @@ (define-compiler compile-self-evaluating (&form form &result-mode result-mode &funobj funobj) "3.1.2.1.3 Self-Evaluating Objects" - (let* ((object (or (quote-form-p form) form)) + (let* ((object form) (movitz-obj (image-read-intern-constant *image* object)) (funobj-env (funobj-env funobj)) (binding (or (cdr (assoc movitz-obj (movitz-environment-bindings funobj-env)))

1 0

[movitz-cvs] CVS update: movitz/losp/x86-pc/ne2k.lisp
by Frode Vatvedt Fjeld 22 Feb '04

22 Feb '04

Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv16024 Modified Files: ne2k.lisp Log Message: Fixed bogus check-type in pop-ringbuffer. Date: Sun Feb 22 10:19:12 2004 Author: ffjeld Index: movitz/losp/x86-pc/ne2k.lisp diff -u movitz/losp/x86-pc/ne2k.lisp:1.7 movitz/losp/x86-pc/ne2k.lisp:1.8 --- movitz/losp/x86-pc/ne2k.lisp:1.7 Mon Feb 2 16:59:27 2004 +++ movitz/losp/x86-pc/ne2k.lisp Sun Feb 22 10:19:12 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Sep 17 15:16:00 2002 ;;;; -;;;; $Id: ne2k.lisp,v 1.7 2004/02/02 21:59:27 ffjeld Exp $ +;;;; $Id: ne2k.lisp,v 1.8 2004/02/22 15:19:12 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -118,7 +118,7 @@ (asic-io (asic-io-base device)) (bnry (cached-bnry device)) (packet (or packet (make-array +max-ethernet-frame-size+ :element-type 'muerte::u8)))) - (check-type packet 'vector-u8) + (check-type packet vector-u8) (with-dp8390 (dp8390 (io-base device)) (multiple-value-bind (packet-status next-bnry packet-length) (with-dp8390-dma (dp8390 remote-read 4 (* 256 bnry))

1 0

[movitz-cvs] CVS update: movitz/special-operators.lisp
by Frode Vatvedt Fjeld 20 Feb '04

20 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv10328 Modified Files: special-operators.lisp Log Message: Added inline-assembly macro :returns-mode. Date: Fri Feb 20 21:04:50 2004 Author: ffjeld Index: movitz/special-operators.lisp diff -u movitz/special-operators.lisp:1.14 movitz/special-operators.lisp:1.15 --- movitz/special-operators.lisp:1.14 Tue Feb 17 15:24:06 2004 +++ movitz/special-operators.lisp Fri Feb 20 21:04:50 2004 @@ -8,7 +8,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Nov 24 16:22:59 2000 ;;;; -;;;; $Id: special-operators.lisp,v 1.14 2004/02/17 20:24:06 ffjeld Exp $ +;;;; $Id: special-operators.lisp,v 1.15 2004/02/21 02:04:50 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -460,7 +460,10 @@ &body inline-asm) (cdr case-spec) (when (eq returns :same) - (setf returns result-mode)) + (setf returns + (case result-mode + (:function :multiple-values) + (t result-mode)))) (when (flet ((match (matching-result-mode) (or (eq 'muerte.cl::t matching-result-mode) (eq t matching-result-mode) @@ -518,6 +521,10 @@ (setq side-effects t)) (setf modifies (modifies-union modifies sub-modifies)) sub-code)))) + (setf (assembly-macro-expander :returns-mode amenv) + #'(lambda (expr) + (assert (= 1 (length expr))) + (list returns))) (setf (assembly-macro-expander :result-register amenv) #'(lambda (expr) (assert (= 1 (length expr)))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/more-macros.lisp
by Frode Vatvedt Fjeld 20 Feb '04

20 Feb '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv7297 Modified Files: more-macros.lisp Log Message: New dolist macro. Date: Fri Feb 20 10:38:29 2004 Author: ffjeld Index: movitz/losp/muerte/more-macros.lisp diff -u movitz/losp/muerte/more-macros.lisp:1.2 movitz/losp/muerte/more-macros.lisp:1.3 --- movitz/losp/muerte/more-macros.lisp:1.2 Mon Jan 19 06:23:47 2004 +++ movitz/losp/muerte/more-macros.lisp Fri Feb 20 10:38:28 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Jun 7 15:05:57 2002 ;;;; -;;;; $Id: more-macros.lisp,v 1.2 2004/01/19 11:23:47 ffjeld Exp $ +;;;; $Id: more-macros.lisp,v 1.3 2004/02/20 15:38:28 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -129,26 +129,15 @@ ,@declarations-and-body))) (defmacro dolist ((var list-form &optional result-form) &body declarations-and-body) - (let ((cons-var (gensym "dolist-cons-var-")) + (let ((cons-var (gensym (format nil "dolist-cons-var-~A-" var))) (loop-tag (gensym "dolist-loop-tag-"))) - (multiple-value-bind (body declarations) - (movitz::parse-declarations-and-body declarations-and-body 'muerte.cl:declare) - `(let ((,cons-var ,list-form) ,var) - (declare ,@declarations) - (block nil - (tagbody - ,loop-tag - (when ,cons-var - (setq ,var (pop ,cons-var)) - ,@body - (go ,loop-tag))) - ,result-form)) - #+ignore - `(do* ((,cons-var ,list-form (cdr ,cons-var)) - (,var (car ,cons-var) (car ,cons-var))) - ((null ,cons-var) ,result-form) - ,@declarations-and-body)))) - + `(prog ((,cons-var ,list-form)) + ,loop-tag + (when ,cons-var + (let ((,var (pop ,cons-var))) + ,@declarations-and-body) + (go ,loop-tag)) + ,(when result-form `(return ,result-form))))) (defmacro letf* (bindings &body body &environment env) "Does what one might expect, saving the old values and setting the generalized

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/basic-macros.lisp
by Frode Vatvedt Fjeld 20 Feb '04

20 Feb '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv7329 Modified Files: basic-macros.lisp Log Message: New compiler-macros for car, cdr, and endp. Date: Fri Feb 20 10:10:43 2004 Author: ffjeld Index: movitz/losp/muerte/basic-macros.lisp diff -u movitz/losp/muerte/basic-macros.lisp:1.3 movitz/losp/muerte/basic-macros.lisp:1.4 --- movitz/losp/muerte/basic-macros.lisp:1.3 Mon Feb 2 08:40:36 2004 +++ movitz/losp/muerte/basic-macros.lisp Fri Feb 20 10:10:43 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Wed Nov 8 18:44:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: basic-macros.lisp,v 1.3 2004/02/02 13:40:36 ffjeld Exp $ +;;;; $Id: basic-macros.lisp,v 1.4 2004/02/20 15:10:43 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -535,48 +535,16 @@ nil)))) (define-compiler-macro car (x) - `(with-inline-assembly-case (:side-effects nil) - (do-case (:ignore :nothing) - (:compile-form (:result-mode :ignore) ,x)) - (do-case (t :eax) - (:compile-form (:result-mode :eax) ,x) - (:globally (:call (:edi (:edi-offset fast-car))))))) + `(let ((cell ,x)) + (with-inline-assembly-case (:side-effects nil) + (do-case (t :register) + (:cons-get :car (:lexical-binding cell) (:result-register)))))) (define-compiler-macro cdr (x) - `(with-inline-assembly-case (:side-effects nil) - (do-case (:ignore :nothing) - (:compile-form (:result-mode :ignore) ,x)) - (do-case (t :eax) - (:compile-form (:result-mode :eax) ,x) - (:globally (:call (:edi (:edi-offset fast-cdr))))))) - -#+ignore -(define-compiler-macro cdr (x) - `(with-inline-assembly-case (:side-effects nil) - (do-case ((:boolean-branch-on-true :boolean-branch-on-false) - :boolean-zf=0) - (:compile-form (:result-mode :eax) ,x) - (:leal (:eax -1) :ecx) - (:testb 3 :cl) - (:jnz '(:sub-program (cdr-failed) - (:int 60))) - (:cmpl :edi (:eax 3))) - (do-case (:ignore :nothing) - (:warn "ignore cdr!")) - (do-case (:ecx :ecx) - (:compile-form (:result-mode :ecx) ,x) - (:decl :ecx) - (:testb 3 :cl) - (:jnz '(:sub-program (cdr-failed) - (:int 60))) - (:movl (:ecx 4) :ecx)) - (do-case (t :register) - (:compile-form (:result-mode :register) ,x) - (:leal ((:result-register) -1) :ecx) - (:testb 3 :cl) - (:jnz '(:sub-program (cdr-failed) - (:int 60))) - (:movl ((:result-register) 3) (:result-register))))) + `(let ((cell ,x)) + (with-inline-assembly-case (:side-effects nil) + (do-case (t :register) + (:cons-get :cdr (:lexical-binding cell) (:result-register)))))) (define-compiler-macro cadr (x) `(car (cdr ,x))) @@ -633,14 +601,13 @@ (:movl :ebx (:eax 3)))) (define-compiler-macro endp (x) - (let ((endp-var (gensym "endp-var-"))) - `(let ((,endp-var ,x)) - (if ,endp-var - (check-type ,endp-var list) - t)))) + `(let ((cell ,x)) + (with-inline-assembly-case (:side-effects nil) + (do-case (t :same) + (:endp (:lexical-binding cell) (:returns-mode)))))) (define-compiler-macro cons (x y) - `(with-inline-assembly (:returns :eax :side-effects t) + `(with-inline-assembly (:returns :eax :side-effects nil :type cons) (:compile-two-forms (:eax :ebx) ,x ,y) (:globally (:call (:edi (:edi-offset fast-cons))))))

1 0

[movitz-cvs] CVS update: movitz/compiler.lisp
by Frode Vatvedt Fjeld 20 Feb '04

20 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv16512 Modified Files: compiler.lisp Log Message: Added :endp extended-code operator. Date: Fri Feb 20 10:08:51 2004 Author: ffjeld Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.30 movitz/compiler.lisp:1.31 --- movitz/compiler.lisp:1.30 Tue Feb 17 15:23:51 2004 +++ movitz/compiler.lisp Fri Feb 20 10:08:51 2004 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.30 2004/02/17 20:23:51 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.31 2004/02/20 15:08:51 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -442,6 +442,7 @@ (type-analysis-binding-types analysis)) (setf (binding-store-type binding) (type-analysis-encoded-type analysis)) + #+ignore (when (apply #'encoded-type-singleton (type-analysis-encoded-type analysis)) (warn "Singleton: ~A" binding)) #+ignore @@ -2456,7 +2457,9 @@ (remove-if (lambda (r) (tree-search i r)) free-so-far))) - ((:load-constant :load-lexical :store-lexical :init-lexvar :car :incf-lexvar) + ((:load-constant :load-lexical :store-lexical :init-lexvar + :cons-get :endp :incf-lexvar + :local-function-init) (unless (can-expand-extended-p i frame-map) (return (values nil t))) (let ((exp (expand-extended-code i funobj frame-map))) @@ -2655,8 +2658,8 @@ (or (position-if (lambda (i) (member b (find-read-bindings i))) (cdr init-pc) - :end 5) - 10) + :end 10) + 15) count))))))))) ;; First, make several passes while trying to locate bindings ;; into registers. @@ -3132,7 +3135,6 @@ (dest-location (new-binding-location destination frame-map :default nil))) (cond ((not dest-location) ; unknown, e.g. a borrowed-binding. - (warn "unknown dest-loc for ~A" destination) (append (install-for-single-value binding binding-location :ecx nil) (make-store-lexical result-mode :ecx nil frame-map))) ((eql binding-location dest-location) @@ -5621,49 +5623,98 @@ ;;;;;;;;;;;;;;;;;; car -(define-find-read-bindings :car (x dst &key protect-registers) - (declare (ignore dst protect-registers)) - (when (typep x 'binding) - (list x))) +(define-find-read-bindings :cons-get (op cell dst) + (declare (ignore op dst protect-registers)) + (when (typep cell 'binding) + (list cell))) -(define-extended-code-expander :car (instruction funobj frame-map) - (destructuring-bind (x dst) +(define-extended-code-expander :cons-get (instruction funobj frame-map) + (destructuring-bind (op cell dst) (cdr instruction) - (assert (member dst '(:eax :ebx :ecx :edx))) - (etypecase x - (binding - (let* ((binding (binding-target (ensure-local-binding (binding-target x) funobj))) - (location (new-binding-location (binding-target binding) frame-map)) - (binding-is-list-p (binding-store-subtypep binding 'list))) + (check-type cell lexical-binding) + (check-type dst (member :eax :ebx :ecx :edx)) + (multiple-value-bind (op-offset fast-op fast-op-ebx) + (ecase op + (:car (values (bt:slot-offset 'movitz-cons 'car) + 'fast-car + 'fast-car-ebx)) + (:cdr (values (bt:slot-offset 'movitz-cons 'cdr) + 'fast-cdr + 'fast-cdr-ebx))) + (let* ((binding (binding-target (ensure-local-binding (binding-target cell) funobj))) + (location (new-binding-location (binding-target binding) frame-map)) + (binding-is-list-p (binding-store-subtypep binding 'list))) ;;; (warn "car of loc ~A bind ~A" ;;; location binding) - (cond - ((and binding-is-list-p - (member location '(:eax :ebx :ecx :edx))) - `((:movl (,location -1) ,dst))) - (binding-is-list-p - `(,@(make-load-lexical binding dst funobj nil frame-map) - (:movl (,dst -1) ,dst))) - ((eq location :ebx) - `((,*compiler-global-segment-prefix* - :call (:edi ,(global-constant-offset 'fast-car-ebx))) - ,@(when (not (eq dst :eax)) - `((:movl :eax ,dst))))) - (t `(,@(make-load-lexical binding :eax funobj nil frame-map) - (,*compiler-global-segment-prefix* - :call (:edi ,(global-constant-offset 'fast-car))) - ,@(when (not (eq dst :eax)) - `((:movl :eax ,dst)))))))) - (symbol - (append (case x - (:eax - `((:call (:edi ,(global-constant-offset 'fast-car))))) - (:ebx - `((:call (:edi ,(global-constant-offset 'fast-car-ebx))))) - (t `((:movl ,x :eax) - (:call (:edi ,(global-constant-offset 'fast-car)))))) - (when (not (eq dst :eax)) - `((:movl :eax ,dst)))))))) + (cond + ((and binding-is-list-p + (member location '(:eax :ebx :ecx :edx))) + `((:movl (,location ,op-offset) ,dst))) + (binding-is-list-p + `(,@(make-load-lexical binding dst funobj nil frame-map) + (:movl (,dst ,op-offset) ,dst))) + ((eq location :ebx) + `((,*compiler-global-segment-prefix* + :call (:edi ,(global-constant-offset fast-op-ebx))) + ,@(when (not (eq dst :eax)) + `((:movl :eax ,dst))))) + (t `(,@(make-load-lexical binding :eax funobj nil frame-map) + (,*compiler-global-segment-prefix* + :call (:edi ,(global-constant-offset fast-op))) + ,@(when (not (eq dst :eax)) + `((:movl :eax ,dst)))))))))) + + +;;;;;;;;;;;;;;;;;; endp + +(define-find-read-bindings :endp (cell result-mode) + (declare (ignore result-mode)) + (when (typep cell 'binding) + (list cell))) + +(define-extended-code-expander :endp (instruction funobj frame-map) + (destructuring-bind (cell result-mode) + (cdr instruction) + (check-type cell lexical-binding) + (let* ((binding (binding-target (ensure-local-binding (binding-target cell) funobj))) + (location (new-binding-location (binding-target binding) frame-map)) + (binding-is-list-p (binding-store-subtypep binding 'list)) + (tmp-register (case location + ((:eax :ebx :ecx :edx) + location)))) + ;; (warn "endp of loc ~A bind ~A" location binding) + (cond + ((and binding-is-list-p + (member location '(:eax :ebx :ecx :edx))) + (make-result-and-returns-glue result-mode :boolean-zf=1 + `((:cmpl :edi ,location)))) +;;; ((and binding-is-list-p +;;; (eq (result-mode-type result-mode) +;;; :boolean-branch-on-false)) +;;; (cond +;;; ((member location '(:eax :ebx :ecx :edx)) + ((eq :boolean-branch-on-true (result-mode-type result-mode)) + (let ((tmp-register (or tmp-register :ecx))) + (append (make-load-lexical binding + (cons :boolean-branch-on-false + (cdr result-mode)) + funobj nil frame-map) + (unless binding-is-list-p + (append (make-load-lexical binding tmp-register funobj nil frame-map) + `((:leal (,tmp-register -1) :ecx) + (:testb 3 :cl) + (:jnz '(:sub-program (,(gensym "endp-not-cons-")) + (:int 66))))))))) + (t (let ((tmp-register (or tmp-register :eax))) + (append (make-load-lexical binding tmp-register funobj nil frame-map) + (unless binding-is-list-p + `((:leal (,tmp-register -1) :ecx) + (:testb 3 :cl) + (:jnz '(:sub-program (,(gensym "endp-not-cons-")) + (:int 66))))) + `((:cmpl :edi ,tmp-register)) + (make-result-and-returns-glue result-mode :boolean-zf=1)))))))) + ;;;;;;;;;;;;;;;;;; incf-lexvar

1 0

[movitz-cvs] CVS update: movitz/load.lisp
by Frode Vatvedt Fjeld 18 Feb '04

18 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv20576 Modified Files: load.lisp Log Message: Tried to improve GC behavior in allegro. Don't know if it actually works, though. Date: Wed Feb 18 09:42:59 2004 Author: ffjeld Index: movitz/load.lisp diff -u movitz/load.lisp:1.9 movitz/load.lisp:1.10 --- movitz/load.lisp:1.9 Fri Feb 13 17:17:41 2004 +++ movitz/load.lisp Wed Feb 18 09:42:59 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Jan 15 18:40:58 2004 ;;;; -;;;; $Id: load.lisp,v 1.9 2004/02/13 22:17:41 ffjeld Exp $ +;;;; $Id: load.lisp,v 1.10 2004/02/18 14:42:59 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -46,7 +46,7 @@ (excl:load-system :movitz) (setf excl:*tenured-bytes-limit* #x2000000) (setf (system::gsgc-parameter :generation-spread) 12) - (sys:resize-areas :new (* 16 1024 1024))) + (sys:resize-areas :new (* 64 1024 1024))) #+clisp (load "packages") #+clisp (defconstant movitz::&all 'movitz::&all) ; CLisp has this wonderful bug..

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/los-closette.lisp
by Frode Vatvedt Fjeld 18 Feb '04

18 Feb '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv11803 Modified Files: los-closette.lisp Log Message: Added an ignore declaration. Date: Wed Feb 18 09:40:58 2004 Author: ffjeld Index: movitz/losp/muerte/los-closette.lisp diff -u movitz/losp/muerte/los-closette.lisp:1.3 movitz/losp/muerte/los-closette.lisp:1.4 --- movitz/losp/muerte/los-closette.lisp:1.3 Sun Feb 15 08:16:56 2004 +++ movitz/losp/muerte/los-closette.lisp Wed Feb 18 09:40:58 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Jul 23 14:29:10 2002 ;;;; -;;;; $Id: los-closette.lisp,v 1.3 2004/02/15 13:16:56 ffjeld Exp $ +;;;; $Id: los-closette.lisp,v 1.4 2004/02/18 14:40:58 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1810,7 +1810,7 @@ (generic-function-methods (lambda (gf) (std-gf-slot-value gf 'methods))) (generic-function-method-combination - (lambda (gf) nil)) + (lambda (gf) (declare (ignore gf)) nil)) (accessor-method-slot-definition (lambda (method) (std-slot-value method 'slot-definition)))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/simple-streams.lisp
by Frode Vatvedt Fjeld 18 Feb '04

18 Feb '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv2731 Modified Files: simple-streams.lisp Log Message: Added an ignore declaration. Date: Wed Feb 18 09:39:37 2004 Author: ffjeld Index: movitz/losp/muerte/simple-streams.lisp diff -u movitz/losp/muerte/simple-streams.lisp:1.3 movitz/losp/muerte/simple-streams.lisp:1.4 --- movitz/losp/muerte/simple-streams.lisp:1.3 Mon Feb 2 09:55:32 2004 +++ movitz/losp/muerte/simple-streams.lisp Wed Feb 18 09:39:37 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Aug 29 13:39:43 2003 ;;;; -;;;; $Id: simple-streams.lisp,v 1.3 2004/02/02 14:55:32 ffjeld Exp $ +;;;; $Id: simple-streams.lisp,v 1.4 2004/02/18 14:39:37 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -684,6 +684,7 @@ stream) (defun install-string-output-character-strategy (stream) + (declare (ignore stream)) #| implement me |#) (defun string-read-char-e-crlf (stream eof-error-p eof-value blocking)

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

movitz-cvs