From 671a40c607c7476e5ee7daf4e4d31a5555244a28 Mon Sep 17 00:00:00 2001 From: Maciej Pasternacki Date: Wed, 22 Oct 2008 11:23:59 +0200 Subject: [PATCH] - Import iterate to trane-common. --- src/common.lisp | 6 +++--- trane-common.asd | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/common.lisp b/src/common.lisp index c4b0c1c..280d66e 100644 --- a/src/common.lisp +++ b/src/common.lisp @@ -6,9 +6,9 @@ ;; Package for internal use in libraries and projects (defpackage #:trane-common - (:use #:common-lisp) ; referenced with package name: #:py-configparser + (:use #:common-lisp #:iterate) (:export #:id #:slug #:slug-dao #:slugify - #:dirtyness-mixin #:dirty-p #:mark-as-dirty #:update-dao-if-dirty + #:dirtiness-mixin #:dirty-p #:mark-as-dirty #:update-dao-if-dirty #:*config* #:*init-functions* #:on-init #:*setup-functions* #:on-setup #:*db* #:make-keyword #:named-lambda #:random-string)) @@ -56,7 +56,7 @@ Usually it will be a reader method automatically defined for ID column of a DAO. (collect #\- result-type string)) (collect c result-type string)))) -(defclass dirtyness-mixin () +(defclass dirtiness-mixin () ((dirty-p :initform nil :accessor dirty-p))) (defun mark-as-dirty (dao) diff --git a/trane-common.asd b/trane-common.asd index 102433a..65b2a54 100644 --- a/trane-common.asd +++ b/trane-common.asd @@ -14,7 +14,7 @@ :author "Maciej Pasternacki " :licence "BSD sans advertising clause, see file COPYING for details" :components ((:module #:src :components ((:file "common")))) - :depends-on (#:postmodern #:hunchentoot #:py-configparser)) + :depends-on (#:postmodern #:hunchentoot #:iterate #:py-configparser)) ;;; Needs to be loaded AFTER cl-postgres and postmodern. LAME! (defmethod perform :after ((op load-op) -- 2.11.4.GIT