forked from lisp/de.setf.utility
/
package.lisp
69 lines (60 loc) · 2.22 KB
/
package.lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
;;; -*- Mode: lisp; Syntax: ansi-common-lisp; Base: 10; Package: common-lisp-user; -*-
;;; This file is the core package definition for the 'de.setf.utility' Common Lisp library.
;;;
;;; Copyright 2003, 2010 [james anderson](mailto:james.anderson@setf.de) All Rights Reserved
;;; 'de.setf.utility' is free software: you can redistribute it and/or modify
;;; it under the terms of version 3 of the GNU Lesser General Public License as published by
;;; the Free Software Foundation.
;;;
;;; 'de.setf.utility' is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
;;; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
;;; See the GNU Lesser General Public License for more details.
;;;
;;; A copy of the GNU Lesser General Public License should be included with 'de.setf.utility, as `lgpl.txt`.
;;; If not, see the GNU [site](http://www.gnu.org/licenses/).
;;;
;;; content : the utility package definition
;;; 20100210.janderson : establised as its own file
(in-package :common-lisp-user)
(defpackage :de.setf.utility
(:use )
(:nicknames :d.s.u :dsu)
(:export
:*logical-source-type*
:*logical-binary-type*
:*package-host-name*
:*package-operations*
:*physical-source-type*
:check-feature
:clean-package
:define-library-host
:defvarconstant
:edit-package
:ensure-package
:find-packages
:load-package
:make-binary-translation-target
:modpackage
:modify-package
:modify-package-operation
:package-not-found
:package-pathname
:package-version
:purge-package
:runtime-directory-name
:set-relative-logical-pathname-translations))
(defpackage :de.setf.utility.implementation
(:use #+:CCL :ccl
:common-lisp
:de.setf.utility)
#+sbcl
(:import-from :sb-gray
:stream-write-string
:stream-write-char
:stream-line-length
:stream-line-column
:stream-write-byte :stream-read-byte
:stream-read-sequence :stream-write-sequence
:stream-force-output :stream-finish-output)
(:documentation "This is the package for source files in the :de.setf.utility library module."))
(pushnew :de.setf.utility *features*)