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
asdf
asdf
Commits
9b286671
Commit
9b286671
authored
Aug 03, 2001
by
Daniel Barlow
Browse files
whitespace
parent
dff2d849
Changes
1
Hide whitespace changes
Inline
Side-by-side
systems/db-sockets.system
View file @
9b286671
...
...
@@ -55,18 +55,18 @@
:defaults dir))))
(defmethod perform :after ((operation compile-system) (dso unix-dso))
(let ((dso-name (unix-name (car (output-files operation dso)))))
(if (zerop
(run-shell-command
"gcc -shared -o ~S ~{~S ~}"
dso-name
(mapcar #'unix-name
(mapcan (lambda (c)
(output-files operation c))
(module-components dso)))))
#+sbcl (sb-sys::load-1-foreign dso-name)
#+cmu (system::load-object-file filename)
(error 'operation-error :operation operation :component dso))))
(let ((dso-name (unix-name (car (output-files operation dso)))))
(if (zerop
(run-shell-command
"gcc -shared -o ~S ~{~S ~}"
dso-name
(mapcar #'unix-name
(mapcan (lambda (c)
(output-files operation c))
(module-components dso)))))
#+sbcl (sb-sys::load-1-foreign dso-name)
#+cmu (system::load-object-file filename)
(error 'operation-error :operation operation :component dso))))
;;; if this goes into the standard asdf, it could reasonably be extended
;;; to allow cflags to be set somehow
...
...
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