Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
77e3035a
Commit
77e3035a
authored
Nov 02, 2011
by
Raymond Toy
Browse files
Merge commit 'release-20c'
parents
df24c184
8a34f6c1
Changes
3
Hide whitespace changes
Inline
Side-by-side
code/pprint.lisp
View file @
77e3035a
...
...
@@ -1945,7 +1945,8 @@ When annotations are present, invoke them at the right positions."
(
new-assem:without-scheduling
pprint-with-like
)
(
vm::with-fixed-allocation
pprint-with-like
)
(
kernel::number-dispatch
pprint-with-like
)
(
stream::with-stream-class
pprint-with-like
)))
(
stream::with-stream-class
pprint-with-like
)
(
lisp::with-array-data
pprint-with-like
)))
(
defun
pprint-init
()
(
setf
*initial-pprint-dispatch*
(
make-pprint-dispatch-table
))
...
...
tools/build-all.sh
View file @
77e3035a
...
...
@@ -46,7 +46,7 @@ do
C
)
CREATE_OPT
=
"
$OPTARG
"
;;
o
)
OLDLISP
=
"
$OPTARG
"
;;
8
)
OLD8
=
"
$OPTARG
"
;;
v
)
VERSION
=
"
$OPTARG
"
;;
v
)
VERSION
=
"
$OPTARG
"
;
VERSION_SET
=
true
;;
U
)
UPDATE_TRANS
=
"-U"
;;
P
)
UPDATE_POT
=
""
;;
\?
)
usage
;;
...
...
@@ -83,16 +83,19 @@ buildx86 ()
buildsun4
()
{
if
[
"
$VERSION_SET
"
=
true
]
;
then
VERS
=
"-v '"
$VERSION
"'"
fi
# Build non-unicode versions
if
[
-n
"
$OLD8
"
]
;
then
set
-x
src/tools/build.sh
-b
${
BASE
}
-8bit
$bootfiles
${
VERS
ION
:+-v
"
$VERSION
"
}
-C
"
$CREATE_OPT
"
${
UPDATE_TRANS
}
${
UPDATE_POT
}
-o
"
$OLD8
"
src/tools/build.sh
-b
${
BASE
}
-8bit
$bootfiles
${
VERS
}
-C
"
$CREATE_OPT
"
${
UPDATE_TRANS
}
${
UPDATE_POT
}
-o
"
$OLD8
"
set
+x
fi
# Build the unicode version.
if
[
-n
"
$OLDLISP
"
]
;
then
set
-x
src/tools/build.sh
-b
${
BASE
}
$bootfiles
${
VERS
ION
:+-v
"
$VERSION
"
}
-C
"
$CREATE_OPT
"
${
UPDATE_TRANS
}
${
UPDATE_POT
}
-o
"
$OLDLISP
"
src/tools/build.sh
-b
${
BASE
}
$bootfiles
${
VERS
}
-C
"
$CREATE_OPT
"
${
UPDATE_TRANS
}
${
UPDATE_POT
}
-o
"
$OLDLISP
"
set
+x
fi
}
...
...
tools/create-target.sh
View file @
77e3035a
...
...
@@ -40,6 +40,7 @@ uname_m=`uname -m 2>/dev/null`
i386
)
lisp_variant
=
x86_darwin
;;
esac
;;
NetBSD
)
lisp_variant
=
x86_netbsd
;;
*
)
quit
"Unsupported OS:
$uname_s
"
;;
esac
}
...
...
@@ -80,7 +81,7 @@ esac
diag
"Settings: bld_dir=
$bld_dir
lisp_variant=
$lisp_variant
${
motif_variant
:+motif_variant
=
$motif_variant
}
"
# Create a directory tree that mirrors the source directory tree
[
-
e
"
$bld_dir
"
]
&&
quit
"Exists:
`
ls
-ld
$bld_dir
`
"
[
-
d
"
$bld_dir
"
-o
-f
"
$bld_dir
"
]
&&
quit
"Exists:
`
ls
-ld
$bld_dir
`
"
mkdir
-p
"
$bld_dir
"
(
cd
src
&&
find
.
-name
.git
-prune
-o
-type
d
-print
)
|
(
cd
$bld_dir
&&
xargs
mkdir
-p
)
||
quit
"Can't create target directories"
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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