Commit 2b11f3b5 authored by Eric Marsden's avatar Eric Marsden

Update to a more recent version of md5.lisp, taken from SBCL's SB-MD5

contrib. The change is motivated by the fact that SBCL generates a runtime
error "function declared not to return returned" with the current
code. Made a few changes to make the code compile in other Common Lisp
implementations.
parent e856a2c9
(defpackage :postgresql
(:nicknames :pg)
(:use :common-lisp
:pg-md5
#+cmu :alien
#+cmu :c-call
#+openmcl :ccl)
......
This diff is collapsed.
;;; -*- Mode: lisp -*-
;;
;; For CMUCL, ensure that the crypt library is loaded before
;; attempting to load the code.
(in-package :asdf)
(defclass pg-component (cl-source-file)
())
;; For CMUCL, ensure that the crypt library is loaded before
;; attempting to load the code.
#+cmu
(defmethod perform :before ((o load-op) (c pg-component))
(ext:load-foreign "/usr/lib/libcrypt.so"))
......@@ -15,9 +15,9 @@
(defsystem :pg
:name "Socket-level PostgreSQL interface"
:author "Eric Marsden"
:version "0.21"
:components ((:file "defpackage")
(:file "md5")
:version "0.22"
:components ((:file "md5")
(:file "defpackage" :depends-on ("md5"))
(:pg-component "sysdep" :depends-on ("defpackage" "md5"))
(:file "meta-queries" :depends-on ("defpackage"))
(:file "parsers" :depends-on ("defpackage"))
......@@ -28,3 +28,4 @@
(:file "v2-protocol" :depends-on ("pg" "large-object" "utility"))
(:file "v3-protocol" :depends-on ("pg" "large-object" "utility"))))
;;; stone-age-load.lisp
;;;
;;; Author: Eric Marsden <emarsden>
;;; Time-stamp: <2004-04-01 emarsden>
;;; Time-stamp: <2005-07-17 emarsden>
(load "defpackage.lisp")
(load (compile-file "md5.lisp"))
(load "defpackage.lisp")
(load (compile-file "meta-queries.lisp"))
(load (compile-file "sysdep.lisp"))
(load (compile-file "parsers.lisp"))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment