From f681bb977b4f539096807e5551a7c5dfb9e80132 Mon Sep 17 00:00:00 2001 From: Maciej Pasternacki Date: Wed, 15 Oct 2008 22:46:37 +0200 Subject: [PATCH] - move CL-TRANE package definition to end of common.lisp --- src/common.lisp | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/src/common.lisp b/src/common.lisp index 370861a..5d39f01 100644 --- a/src/common.lisp +++ b/src/common.lisp @@ -12,12 +12,6 @@ #:*db () #:make-keyword #:named-lambda #:random-string)) -;; Package for use outside of project -(defpackage #:cl-trane - (:use #:common-lisp) - (:import-from :trane-common #:init #:setup) - (:export #:init #:setup)) - (in-package #:trane-common) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -142,3 +136,10 @@ implementations." (coerce (loop for i from 0 to (+ min-length (random (- max-length min-length))) collect (aref alphabet (random (length alphabet)))) 'string)) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; Package for use outside of project; mirrors symbols from trane-common, so it's at the end. +(defpackage #:cl-trane + (:use #:common-lisp) + (:import-from :trane-common #:init #:setup) + (:export #:init #:setup)) -- 2.11.4.GIT