Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
abcl
abcl
Commits
aa95ff18
Commit
aa95ff18
authored
Aug 18, 2012
by
ehuelsmann@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files
Use PROVIDE/REQUIRE to prevent multiple loading.
parent
2abafb1e
Changes
4
Hide whitespace changes
Inline
Side-by-side
src/org/armedbear/lisp/pprint-dispatch.lisp
View file @
aa95ff18
...
...
@@ -57,6 +57,8 @@
(
in-package
#:xp
)
(
require
"PPRINT"
)
(
defvar
*ipd*
nil
;see initialization at end of file.
"initial print dispatch table."
)
...
...
@@ -333,3 +335,5 @@
(
set-pprint-dispatch+
'pprint-dispatch-table
#'
pprint-dispatch-print
'
(
0
)
*ipd*
)
(
setf
*print-pprint-dispatch*
(
copy-pprint-dispatch
nil
))
(
provide
"PPRINT-DISPATCH"
)
\ No newline at end of file
src/org/armedbear/lisp/pprint.lisp
View file @
aa95ff18
...
...
@@ -59,6 +59,8 @@
;must do the following in common lisps not supporting *print-shared*
(
require
"PRINT"
)
(
defvar
*print-shared*
nil
)
(
export
'
(
*print-shared*
))
...
...
src/org/armedbear/lisp/print-object.lisp
View file @
aa95ff18
...
...
@@ -121,4 +121,4 @@
(
cell-error-name
x
)))
(
format
stream
"The variable ~S is unbound."
(
cell-error-name
x
))))
(
provide
'print-object
)
(
provide
"PRINT-OBJECT"
)
src/org/armedbear/lisp/print.lisp
View file @
aa95ff18
...
...
@@ -314,3 +314,5 @@
(
t
(
%print-object
object
stream
)))
object
)
(
provide
"PRINT"
)
\ No newline at end of file
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment