Skip to content

Commit 444d676

Browse files
committed
Fix up Scieneer changes.
Making this update blind; not sure if EXT is identical to EXTENSIONS on Scieneer.
1 parent 6fad801 commit 444d676

File tree

2 files changed

+6
-3
lines changed

2 files changed

+6
-3
lines changed

impl-util.lisp

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -155,7 +155,9 @@ quicklisp at CL startup."
155155
(:implementation ccl
156156
(ql-ccl:native-translated-namestring pathname))
157157
(:implementation sbcl
158-
(ql-sbcl:native-namestring pathname)))
158+
(ql-sbcl:native-namestring pathname))
159+
(:implementation scl
160+
(ql-scl:native-namestring pathname)))
159161

160162

161163

@@ -230,7 +232,7 @@ quicklisp at CL startup."
230232
(:implementation cmucl
231233
(ql-cmucl:unix-rmdir (namestring entry)))
232234
(:implementation scl
233-
(ql-scl:unix-rmdir (ext:unix-namestring entry)))
235+
(ql-scl:unix-rmdir (ql-scl:native-namestring entry)))
234236
(:implementation ecl
235237
(ql-ecl:rmdir entry))
236238
(:implementation lispworks

impl.lisp

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -203,7 +203,8 @@
203203
(:reexport-from #:unix
204204
#:unix-rmdir)
205205
(:reexport-from #:extensions
206-
#:connect-to-inet-socket))
206+
#:connect-to-inet-socket
207+
#:native-namestring))
207208

208209

209210
;;; LispWorks

0 commit comments

Comments
 (0)