? .l8cl
? .luf
? .tsdb_history
? C-lkb.lsp
? C-tsdb.lsp
? c-lkb.lsp
? c-tsdb.lsp
? lkb-patch
Index: version.lsp
===================================================================
RCS file: /lingo/CVS/lkb/src/version.lsp,v
retrieving revision 1.559
retrieving revision 1.558
diff -d -r1.559 -r1.558
3c3
< (defparameter *cvs-version* "$Date: 2007/06/07 19:26:44 $")
---
> (defparameter *cvs-version* "$Date: 2007/05/29 20:04:41 $")
Index: general/sbcl-patches.lisp
===================================================================
RCS file: /lingo/CVS/lkb/src/general/sbcl-patches.lisp,v
retrieving revision 1.4
retrieving revision 1.2
diff -d -r1.4 -r1.2
27,49d26
< ;; also load "another system definition facility"
< (require :asdf)
< 
< ;; tell asdf where to find its system definitions
< (setf asdf:*central-registry*
<   (list
<    (merge-pathnames (pathname "asdf/source/puri/") *default-pathname-defaults*)
<    (merge-pathnames (pathname "asdf/source/cl-ppcre/") *default-pathname-defaults*)
<    (merge-pathnames (pathname "asdf/source/acl-compat/") *default-pathname-defaults*)
<    ))
< 
< (require :cl-ppcre)
< (require :puri)
< (require :acl-compat)
< 
< ;; this hack ensures sbcl automatically recompiles any out-of-date
< ;; fasl files (rather than choking, which is the default behaviour)
< (defmethod asdf:perform :around ((o asdf:load-op) (c asdf:cl-source-file))
<   (handler-case (call-next-method o c)
<     (sb-ext:invalid-fasl ()
<       (asdf:perform (make-instance 'asdf:compile-op) c)
<       (call-next-method))))
< 
94,180d70
< ;;
< ;; set up :multiprocessing package
< ;;
< 
< (defpackage :multiprocesing
<   (:use #:common-lisp #:acl-compat.mp)
<   (:nicknames #:mp)
<   (:export 
<    #:*current-process*         ;*
<    #:process-kill              ;*
<    #:process-preset            ;*
<    #:process-name              ;*
< 
<    #:process-wait-function
<    #:process-run-reasons 
<    #:process-arrest-reasons
<    #:process-whostate
<    #:without-interrupts
<    #:process-wait
<    #:process-enable
<    #:process-disable
<    #:process-reset
<    #:process-interrupt
< 
<    #:process-run-function      ;*
<    #:process-property-list     ;*
<    #:without-scheduling        ;*
<    #:process-allow-schedule    ;*
<    #:make-process              ;*
<    #:process-add-run-reason    ;*
<    #:process-revoke-run-reason ;*
<    #:process-add-arrest-reason    ;*
<    #:process-revoke-arrest-reason ;*
<    #:process-allow-schedule    ;*
<    #:with-timeout              ;*
<    #:make-process-lock         ;*
<    #:with-process-lock         ;*
<    #:process-lock
<    #:process-unlock
< 
<    #:current-process
<    #:process-name-to-process
<    #:process-wait-with-timeout
<    #:wait-for-input-available
<    #:process-active-p
<    ))
< 
< (in-package :mp)
< 
< (eval-when (:execute :load-toplevel :compile-toplevel)
<   (export 'run-function)
<   (setf (symbol-function 'run-function) 
<         (symbol-function 'process-run-function)))
< 
< ;;
< ;; set up :excl package
< ;;
< 
< (defpackage :excl
<   (:use #:common-lisp #:acl-compat.excl)
<   (:export
<    #:if*
<    #:*initial-terminal-io*
<    #:*cl-default-special-bindings*
<    #:filesys-size
<    #:filesys-write-date
<    #:stream-input-fn
<    #:match-regexp
<    #:compile-regexp
<    #:*current-case-mode*
<    #:intern*
<    #:filesys-type
<    #:errorset
<    #:atomically
<    #:fast
<    #:without-package-locks
<    #:fixnump
<    ))
< 
< ;; PPCRE sets ppcre:*regex-char-code-limit* to the constant CHAR-CODE-LIMIT
< ;; under SBCL, CHAR-CODE-LIMIT is 1114112
< ;;  - this is way too high for almost any application
< ;;    (results in massive regex scanners)
< ;; under Allegro, CHAR-CODE-LIMIT is 65536
< ;;  - still excessively high, but usable
< ;; SO we set ppcre:*regex-char-code-limit* to 65536 for now...
< (setf ppcre:*regex-char-code-limit* 65536)
\ No newline at end of file
Index: glue/lui.lsp
===================================================================
RCS file: /lingo/CVS/lkb/src/glue/lui.lsp,v
retrieving revision 1.36
retrieving revision 1.35
diff -d -r1.36 -r1.35
127,129c127,128
<     ;; [bmw] -- socket:shutdown is not available in :acl-compat
<     #-:acl-compat (ignore-errors (socket:shutdown %lui-socket% :output))
<     #-:acl-compat (ignore-errors (socket:shutdown %lui-socket% :input))
---
>     (ignore-errors (socket:shutdown %lui-socket% :output))
>     (ignore-errors (socket:shutdown %lui-socket% :input))
Index: io-general/utils.lsp
===================================================================
RCS file: /lingo/CVS/lkb/src/io-general/utils.lsp,v
retrieving revision 1.80
retrieving revision 1.79
diff -d -r1.80 -r1.79
7a8,16
> ;; 'define-constant' taken from SBCL manual
> ;; Under ANSI spec, application of defconstant multiple times is undefined
> ;; unless values are eql. SBCL treats this undefined behaviour as an error.
> ;; What's worse, in SBCL defconstant takes effect both at load time and at
> ;; compile time...
> (defmacro define-constant (name value &optional doc)
>        `(defconstant ,name (if (boundp ',name) (symbol-value ',name) ,value)
> 	  ,@(when doc (list doc))))
> 
331c340
<    (pathname name) ;; [bmw] was (make-pathname :name name)
---
>    (make-pathname :name name)
Index: lexdb/headers.lsp
===================================================================
RCS file: /lingo/CVS/lkb/src/lexdb/headers.lsp,v
retrieving revision 1.67
retrieving revision 1.66
diff -d -r1.67 -r1.66
60c60
<    (user :initform (sys-user-name) :accessor user :initarg :user)
---
>    (user :initform (user-name) :accessor user :initarg :user)
126c126
<       (load-libpq '("libpq.so.5" "libpq.so" "libpq.so.4" "libpq.so.3")))
---
>       (load-libpq '("libpq.so" "libpq.so.4" "libpq.so.3")))
135,139c135
<     (handler-case 
< 	#+:allegro (load (car lib-names))
< 	#+:sbcl (sb-alien:load-shared-object (car lib-names))
< 	#-(or :allegro :sbcl)
< 	(error "the function load-libpq is currently defined only for #+:allegro and #+:sbcl lisp implementations")
---
>     (handler-case (load (car lib-names))
Index: lexdb/lexport.lsp
===================================================================
RCS file: /lingo/CVS/lkb/src/lexdb/lexport.lsp,v
retrieving revision 1.61
retrieving revision 1.60
diff -d -r1.61 -r1.60
48,50d47
<   (unless *lexdb-dump-user*
<     (setf *lexdb-dump-user* (sys-user-name)))
<   #-:sbcl
159,162d155
< 
< #-:clim
< (defun query-for-meta-fields nil
<   (format t "~&Please set the following manually: *lexdb-dump-source* *lexdb-dump-lang* *lexdb-dump-country*"))
164,165d156
< 
< #+:clim
187c178
<      (cons "Username?" (or *lexdb-dump-user* (sys-user-name)))))
---
>      (cons "Username?" (or *lexdb-dump-user* (sys:user-name)))))
189,201d179
< 
< (defun sys-user-name ()
<   (or #+(and :allegro-version>= (version>= 5 0)) 
<       (sys:user-name)
<       #+(and :allegro (not (and :allegro-version>= (version>= 5 0))))
<       (system:getenv "USER")
<       #+(and :mcl :powerpc) 
<       (ccl:process-name ccl:*current-process*)
<       #+:lucid 
<       (lcl:environment-variable "USER")
<       #+:sbcl
<       (sb-ext:posix-getenv "USER")
<       "nobody"))
\ No newline at end of file
Index: lexdb/psql-database.lsp
===================================================================
RCS file: /lingo/CVS/lkb/src/lexdb/psql-database.lsp,v
retrieving revision 1.38
retrieving revision 1.37
diff -d -r1.38 -r1.37
16,17c16
< 
< #+:allegro
---
>   
21,25d19
< 
< #+:sbcl
< (defmacro with-lexdb-locale (&body body)
<   `(progn
<      ,@body))
351,352c345
< 		#+:allegro (car (excl.osi::command-output "echo $PGPORT"))
< 		)))
---
> 		(car (excl.osi::command-output "echo $PGPORT")))))
408d400
< #+:allegro
426,494d417
< #+:sbcl
< (defparameter *psql-quote-literal-cstr0* 
<     (sb-alien:make-alien (sb-alien:c-string :external-format :utf8)))
< 
< #+:sbcl
< (defparameter *psql-quote-literal-cstr* 
<     (sb-alien:make-alien 
<      (sb-alien:array sb-alien:char 0)))
< 
< #+:sbcl
< (defun alien-array-dimensions (alien-array)
<   (SB-ALIEN-INTERNALS:ALIEN-ARRAY-TYPE-dimensions 
<    (SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE-to 
<     (SB-ALIEN-INTERNALS:ALIEN-VALUE-type alien-array))))
< 
< #+:sbcl
< (defun psql-quote-literal (str)
<   (concatenate 
<       'string 
<     "'"
<     (psql-quote-literal-aux str)
<     "'"))
< 
< #+:sbcl
< (defun psql-quote-literal-aux (str)
<   (unless (stringp str)
<     (setf str (2-str str)))
<   (let* ((len0 (nlength str))
< 	 (maxlen (max 1
< 		      (+ (length str)
< 			 len0
< 			 1))))
<     (when (> maxlen (car (alien-array-dimensions *psql-quote-literal-cstr*)))
<       ;;we need to reserve more memory
<       (format t "~%expanding *psql-quote-literal-cstr* to ~a elements" maxlen)
<       (sb-alien:free-alien *psql-quote-literal-cstr*)
<       (setf *psql-quote-literal-cstr* (eval
< 		  `(sb-alien:make-alien 
< 		    (sb-alien:array sb-alien:char
< 			   ,maxlen
< 			   )))))
<     ;; call the foreign fn
<     (pq:escape-string (sb-alien:cast *psql-quote-literal-cstr* (* sb-alien:char)) str len0)
<     ;; extract the string value we want
<     (setf (sb-alien:deref *psql-quote-literal-cstr0*) 
<       (sb-alien:cast *psql-quote-literal-cstr* (* sb-alien:char)))
<     ))
< 
< (defun nlength (str)
<   (loop
<       for c across str
<       sum (nlength-char c)))
< 
< (defun nlength-char (char)
<   (let ((code (char-code char)))
<     (cond
<      ((< code #x00000080)
<       1)
<      ((< code #x00000800)
<       2)
<      ((< code #x00010000)
<       3)
<      ((< code #x00200000)
<       4)
<      ((< code #x04000000)
<       5)
<      (t 
<       (error "char code out of range for Unicode!")))))
<      
619d541
< #+:allegro
632,663d553
< #+:sbcl
< (defparameter *copy-out-stream-buffer*
<     (eval
<      `(sb-alien:make-alien
<        (sb-alien:array sb-alien:char ,*psql-c-str-len*))))
< 
< #+:sbcl
< (defparameter *copy-out-stream-c-string*
<     (sb-alien:make-alien (sb-alien:c-string :external-format :utf8)))
< 
< #+:sbcl
< (defun copy-out-stream (conn ostream)
<   (let* ((c-str *copy-out-stream-buffer*))
<     (unwind-protect
< 	(do* ((line 
< 	       (getline conn c-str *psql-c-str-len*) 
< 	       (getline conn c-str *psql-c-str-len*)))
< 	    ((string= line "\\."))
< 	  (write-line line ostream)))
<     (endcopy conn)))
< 
< #+:sbcl
< (defun getline (conn c-str len)
<   (loop
<       for i = (pq:getline conn (sb-alien:cast c-str (* sb-alien:char)) len)
<       for new-text = (setf (sb-alien:deref *copy-out-stream-c-string*)
< 		(sb-alien:cast c-str (* sb-alien:char)))
<       for line = (concatenate 'string line new-text)
<       while (= i 1)
<       finally (return line)))
< 
< #+:allegro
667,671c557
<       for line = (concatenate 
< 		     'string 
< 		   line 
< 		   (with-lexdb-locale (ff::native-to-string c-str))
< 		   )
---
>       for line = (concatenate 'string line (with-lexdb-locale (ff::native-to-string c-str)))
696,698c582
<   (with-lexdb-locale 
<       (connect-db2 conninfo)
<     ))
---
>   (with-lexdb-locale (connect-db2 conninfo)))
Index: lexdb/psql-emacs.lsp
===================================================================
RCS file: /lingo/CVS/lkb/src/lexdb/psql-emacs.lsp,v
retrieving revision 1.25
retrieving revision 1.24
diff -d -r1.25 -r1.24
13c13
< (define-constant *lexdb-emacs-other-fns*
---
> (defconstant *lexdb-emacs-other-fns*
Index: lexdb/psql-lex-database.lsp
===================================================================
RCS file: /lingo/CVS/lkb/src/lexdb/psql-lex-database.lsp,v
retrieving revision 1.114
retrieving revision 1.113
diff -d -r1.114 -r1.113
570d569
<    (run-command lex "DELETE FROM lex_cache WHERE name IN (SELECT name FROM rev)")
Index: lexdb/psqllex.lsp
===================================================================
RCS file: /lingo/CVS/lkb/src/lexdb/psqllex.lsp,v
retrieving revision 1.70
retrieving revision 1.69
diff -d -r1.70 -r1.69
90c90
<       (sys-user-name)))
---
>       (user-name)))
Index: main/initializations.lsp
===================================================================
RCS file: /lingo/CVS/lkb/src/main/initializations.lsp,v
retrieving revision 1.53
retrieving revision 1.52
diff -d -r1.53 -r1.52
209,218d208
< 
< ;; 'define-constant' taken from SBCL manual
< ;; Under ANSI spec, application of defconstant multiple times is undefined
< ;; unless values are eql. SBCL treats this undefined behaviour as an error.
< ;; What's worse, in SBCL defconstant takes effect both at load time and at
< ;; compile time...
< (defmacro define-constant (name value &optional doc)
<        `(defconstant ,name (if (boundp ',name) (symbol-value ',name) ,value)
< 	  ,@(when doc (list doc))))
< 
Index: mrs/lkb-interface.lisp
===================================================================
RCS file: /lingo/CVS/lkb/src/mrs/lkb-interface.lisp,v
retrieving revision 1.30
retrieving revision 1.29
diff -d -r1.30 -r1.29
28c28
< #-(or :excl :acl-compat) 
---
> #-:excl 
Index: mrs/mrstoplevel.lisp
===================================================================
RCS file: /lingo/CVS/lkb/src/mrs/mrstoplevel.lisp,v
retrieving revision 1.28
retrieving revision 1.27
diff -d -r1.28 -r1.27
225c225
<   (if *gen-record*
---
>    (if *gen-record*
227,234c227,230
< 	  do
< 	    (format t "~&Edge ~A G:" (edge-id edge))
< 	    (pprint (edge-string edge));;bmw -- display generated STRING
< 	    (pprint (parse-tree-structure edge))
< 	  finally
< 	    (force-output) ;;bmw -- ensure we see the output
< 	    (terpri)) ;; bmw -- ensure we end on a new line
<     (format t "~&No strings generated")))
---
>          do
>          (format t "~&Edge ~A G:" (edge-id edge))
>          (pprint (parse-tree-structure edge)))
>       (format t "~&No strings generated")))
Index: mrs/semi-psql.lsp
===================================================================
RCS file: /lingo/CVS/lkb/src/mrs/semi-psql.lsp,v
retrieving revision 1.22
retrieving revision 1.21
diff -d -r1.22 -r1.21
28,37c28
< ;; 'define-constant' taken from SBCL manual
< ;; Under ANSI spec, application of defconstant multiple times is undefined
< ;; unless values are eql. SBCL treats this undefined behaviour as an error.
< ;; What's worse, in SBCL defconstant takes effect both at load time and at
< ;; compile time...
< (defmacro define-constant (name value &optional doc)
<        `(defconstant ,name (if (boundp ',name) (symbol-value ',name) ,value)
< 	  ,@(when doc (list doc))))
< 
< (define-constant *psql-semi-dump-base*
---
> (defconstant *psql-semi-dump-base*
Index: mrs/translate.lisp
===================================================================
RCS file: /lingo/CVS/lkb/src/mrs/translate.lisp,v
retrieving revision 1.30
retrieving revision 1.29
diff -d -r1.30 -r1.29
47,50c47
<                      log
< 		     #+:sbcl excl:*initial-terminal-io*
< 		     #-:sbcl (or #+:allegro excl:*initial-terminal-io* t)
< 		     ))
---
>                      log (or #+:allegro excl:*initial-terminal-io* t)))
187,188d183
<       #+:sbcl
<       (sb-ext:posix-getenv "USER")
Index: mt/transfer.lisp
===================================================================
RCS file: /lingo/CVS/lkb/src/mt/transfer.lisp,v
retrieving revision 1.41
retrieving revision 1.40
diff -d -r1.41 -r1.40
783,786c783,785
<   #-:cl-ppcre
<   ;;mrs
<   mtr
<   #+:cl-ppcre
---
>   #-:ppcre
>   mrs
>   #+:ppcre
794c793
<                         (ppcre::create-scanner (subseq pred 1)))
---
>                        (ppcre::create-scanner (subseq pred 1)))
812c811
<                           when (mrs::var-p value) do
---
>                          when (mrs::var-p value) do
820c819
<                                     (ppcre::create-scanner
---
>                                    (ppcre::create-scanner
1648c1647
<      #+:cl-ppcre
---
>      #+:ppcre
1795c1794
<      #+:cl-ppcre
---
>      #+:ppcre
Index: preprocess/graph.lsp
===================================================================
RCS file: /lingo/CVS/lkb/src/preprocess/graph.lsp,v
retrieving revision 1.4
retrieving revision 1.3
diff -d -r1.4 -r1.3
129,203d128
< 
< 
< (defun analyse-compound (word &key (lexdb *lexdb*))
<   (let* ((matrix (analyse-compound2 word 
< 				   :lexdb lexdb))
< 	 (paths (analyse-compound-getpaths matrix))
< 	 (strings (analyse-compound-getstrings paths word)))
<     ;(print matrix)
<     strings))
< 
< (defun analyse-compound2 (word &key (lexdb *lexdb*) matrix (offset 0))
<   (unless matrix
<     (setf matrix (make-array (list (1+ (length word))))))
<   (loop
<       for i from 1 to (length word)
<       when (analyse-compound-substr (subseq word 0 i) lexdb)
<       do
< 	(pushnew offset (aref matrix (+ offset i)))
< 	(analyse-compound2 (subseq word i) 
< 			  :lexdb lexdb
< 			  :matrix matrix 
< 			  :offset (+ offset i)))
<   matrix)
< 
< (defun analyse-compound-substr (word lexdb)
<   (or
<    (string= word "s")
<    (string= word "e")
<    (and
<     (get-raw-records 
<      lexdb 
<      (format nil "select key from lex_key where key = ~a"
< 	     (psql-quote-literal word)))
<     t)))
< 
< (defun analyse-compound-getpaths (matrix &key i)
<   (unless i
<     (setf i (1- (length matrix))))
<   (loop
<       with paths
<       for j in (aref matrix i)
<       do
< 	;(print j)
< 	(cond 
< 	 ((zerop j)
< 	  (push (list j) paths))
< 	 (t
< 	  (loop
< 	      for path2 in (analyse-compound-getpaths matrix :i j)
< 	      do
< 		(push (cons j path2) paths))))
<       finally
< 	(return paths)))
< 
< 
< (defun analyse-compound-getstrings (paths word)
<   (loop
<       for path in paths
<       collect
< 	(reverse
< 	 (loop
< 	     with prev = (length word)
< 	     for node in path
< 	     collect (subseq word node prev)
< 	     do (setf prev node)))))
< 
< (defun analyse-compound-batch (filename)
<   (with-open-file (s filename :direction :input)
<     (loop
< 	with item0
< 	while (setf item0 (read s nil nil))
< 	for item = (string-downcase item0)
< 	for analyses = (analyse-compound item)
< 	do
< 	  (format t "~&~a : ~a" item analyses))))
\ No newline at end of file
Index: preprocess/server.lsp
===================================================================
RCS file: /lingo/CVS/lkb/src/preprocess/server.lsp,v
retrieving revision 1.5
retrieving revision 1.4
diff -d -r1.5 -r1.4
100,103c100
< 	    (print condition)
< 	    #-:sbcl (format t  "~&Error: ~A" condition)
< 	    #+:sbcl (format t  "~&Error: ~S" condition)
< 	    ))
---
> 	    (format t  "~&Error: ~A" condition)))
118,121c115,116
< 	  ;; use UTF-8 when communicating with socket
< 	  ;; FIXME: works by default under sbcl, but interface
< 	  ;;        is incomplete 
< 	  #-:sbcl (setf (stream-external-format s) :utf-8)
---
> 	   ;; use UTF-8 when communicating with socket
> 	  (setf (stream-external-format s) :utf-8)
130,134c125
<       for input = (handler-case
< 		      (read-input s)
< 		    (error (condition)
< 		      (format t  "~&Error: ~A" condition)
< 		      :eof))
---
>       for input = (read-input s)
Index: psql/pq-package.lsp
===================================================================
RCS file: /lingo/CVS/lkb/src/psql/pq-package.lsp,v
retrieving revision 1.3
retrieving revision 1.2
diff -d -r1.3 -r1.2
10,13c10
<   (:use :common-lisp 
< 	#+:allegro :foreign-functions
< 	#+:sbcl :sb-alien
< 	) 
---
>   (:use :common-lisp :foreign-functions) 
Index: rmrs/rmrs-algebra.lisp
===================================================================
RCS file: /lingo/CVS/lkb/src/rmrs/rmrs-algebra.lisp,v
retrieving revision 1.3
retrieving revision 1.2
diff -d -r1.3 -r1.2
130,132c130
<   (let* ((rule-name (rmrs-algebra-rule-name rule))
< 	 ;; [bmw] was (let* ((rule-name (rmrs-rule-name rule))
< 	 ;;       type fixed to avoid sbcl complaint
---
>   (let* ((rule-name (rmrs-rule-name rule))
Index: systems/lkb.system
===================================================================
RCS file: /lingo/CVS/lkb/src/systems/lkb.system,v
retrieving revision 1.134
retrieving revision 1.132
diff -d -r1.134 -r1.132
50,53d49
<   ;; [bmw] basic multiprocessing support in sbcl
<   #+:sbcl
<   (pushnew :multiprocessing *features*)
<   
70c66
<         (and :sbcl :x86 :linux))
---
>         (and :null :sbcl :x86 :linux))
77c73
<   #+(or :allegro :sbcl)
---
>   #+(and :allegro (or :linux (and :sun :svr4) :mswindows))
123c119
<                  #+(and :preprocessor (not :sbcl)) "ppcre"
---
>                  #+:preprocessor "ppcre"
214c210
<        #+(or :allegro :acl-compat)
---
>        #+:allegro
Index: systems/mrs.system
===================================================================
RCS file: /lingo/CVS/lkb/src/systems/mrs.system,v
retrieving revision 1.59
retrieving revision 1.58
diff -d -r1.59 -r1.58
20c20
<     :depends-on (#+:lkb "lkb" #+(and :xml (not :lkb)) "pxml" #-:acl-compat "ppcre")
---
>     :depends-on (#+:lkb "lkb" #+(and :xml (not :lkb)) "pxml" "ppcre")
Index: systems/ppcre.system
===================================================================
RCS file: /lingo/CVS/lkb/src/systems/ppcre.system,v
retrieving revision 1.10
retrieving revision 1.9
diff -d -r1.10 -r1.9
2c2
< ;;; $Header: /lingo/CVS/lkb/src/systems/ppcre.system,v 1.10 2007/06/07 19:26:31 bmw Exp $
---
> ;;; $Header: /lingo/CVS/lkb/src/systems/ppcre.system,v 1.9 2006/10/28 15:59:24 bmw Exp $
37a38,39
> (pushnew :ppcre *features*)
> 
Index: systems/preprocessor.system
===================================================================
RCS file: /lingo/CVS/lkb/src/systems/preprocessor.system,v
retrieving revision 1.12
retrieving revision 1.11
diff -d -r1.12 -r1.11
15c15
<     :depends-on (#-:acl-compat "ppcre" "s-xml")
---
>     :depends-on ("ppcre" "s-xml")
Index: systems/psql.system
===================================================================
RCS file: /lingo/CVS/lkb/src/systems/psql.system,v
retrieving revision 1.10
retrieving revision 1.9
diff -d -r1.10 -r1.9
10a11
> 
12c13,14
<    ((:module "interface"
---
>    (#+(and :allegro-version>= (version>= 6 0))
>     (:module "interface"
17,18c19,20
<       #+:allegro (:file "pq-libpq")
<       #+:sbcl (:file "pq-libpq-sbcl")
---
>       (:file "pq-libpq")
>       ;(:file "pq")