/[cparse]/cparse/00debug.lisp
ViewVC logotype

Diff of /cparse/00debug.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by clynbech, Wed Nov 24 20:29:32 2004 UTC revision 1.2 by clynbech, Tue Aug 29 20:31:54 2006 UTC
# Line 1  Line 1 
1  ;;;; debug.lisp --- various forms usefull when doing debugging.  ;;;; debug.lisp --- various forms usefull when doing debugging.
2    
3  (defparameter *uffi* '|1.4.30|)  (defparameter *uffi* (nth 2 '(dist |1.5.5| |1.5.15| cl-home)))
4    
5  (case *uffi*  (case *uffi*
6    (cl-home (load "../../cl-home/cl-uffi/uffi.asd")    (cl-home (load "../../cl-home/cl-uffi/uffi.asd")
# Line 9  Line 9 
9              (asdf:operate 'asdf:load-op :uffi))              (asdf:operate 'asdf:load-op :uffi))
10    (|1.4.30| (load "../cl-uffi-1.4.30/uffi.asd")    (|1.4.30| (load "../cl-uffi-1.4.30/uffi.asd")
11              (asdf:operate 'asdf:load-op :uffi))              (asdf:operate 'asdf:load-op :uffi))
12      (|1.5.5| (load "../cl-uffi-1.5.5/uffi.asd")
13                (asdf:operate 'asdf:load-op :uffi))
14      (|1.5.15| (load "../cl-uffi-1.5.15/uffi.asd")
15                (asdf:operate 'asdf:load-op :uffi))
16    (dist (clc:clc-require :uffi)))    (dist (clc:clc-require :uffi)))
17    
18  (load "/usr/share/common-lisp/source/defsystem/defsystem.lisp")  ;(load "/usr/share/common-lisp/source/defsystem/defsystem.lisp")
19    
20  (load "cparse.system")  (load "cparse.system")
21    
22  #+nil  #+nil
23  (mk:clean-system :cparse)  (mk:clean-system :cparse)
24    
25    #+nil
26  (progn  (progn
27    (mk:compile-system :cparse) (mk:load-system :cparse))    (mk:compile-system :cparse) (mk:load-system :cparse))
28    
29    (asdf:operate 'asdf:load-op :cparse)
30    
31  (defun dotest (&rest files)  (defun dotest (&rest files)
32    (flet ((test-1 (file)    (flet ((test-1 (file)
33             (let ((ffi (uffi-alien:make-alien-defs file)))             (let ((ffi (uffi-alien:make-alien-defs file)))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.5