-
Notifications
You must be signed in to change notification settings - Fork 4
/
package.lisp
79 lines (70 loc) · 2.34 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
70
71
72
73
74
75
76
77
78
79
;;; -*- 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:[email protected]) 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)
#+mcl
(:import-from :ccl
:stream-reader
:stream-writer
:stream-tyi
:stream-tyo)
(: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
:require-features
:runtime-directory-name
:set-relative-logical-pathname-translations
:simple-encoding-error
:simple-decoding-error
:stream-reader
:stream-writer
:stream-tyi
:stream-tyo))
(defpackage :de.setf.utility.implementation
(:use #+:CCL :ccl
:common-lisp
:de.setf.utility)
#+sbcl
(:import-from :sb-gray
:stream-line-column
:stream-write-char
:stream-write-sequence
:stream-write-string)
(:documentation "This is the package for source files in the :de.setf.utility library module."))
(pushnew :de.setf.utility *features*)