/[cmucl]/src/code/foreign.lisp
ViewVC logotype

Diff of /src/code/foreign.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.57.4.2 by rtoy, Tue Feb 9 18:41:59 2010 UTC revision 1.57.4.3 by rtoy, Sun Feb 14 03:06:41 2010 UTC
# Line 801  to skip undefined symbols which don't ha Line 801  to skip undefined symbols which don't ha
801                  (setf (car lib-entry) new-sap)                  (setf (car lib-entry) new-sap)
802                  (return))                  (return))
803              (continue ()              (continue ()
804                :report "Ignore library and continue"                :report (lambda (stream)
805                            (write-string _"Ignore library and continue" stream))
806                (return))                (return))
807              (try-again ()              (try-again ()
808                :report "Try reloading again"                :report (lambda (stream)
809                            (write-string _"Try reloading again" stream))
810                )                )
811              (new-library ()              (new-library ()
812                :report "Choose new library path"                :report (lambda (stream)
813                            (write-string _"Choose new library path" stream))
814                (format *query-io* _"Enter new library path: ")                (format *query-io* _"Enter new library path: ")
815                (setf lib-path (read))))))                (setf lib-path (read))))))
816    (alien:alien-funcall (alien:extern-alien "os_resolve_data_linkage"    (alien:alien-funcall (alien:extern-alien "os_resolve_data_linkage"

Legend:
Removed from v.1.57.4.2  
changed lines
  Added in v.1.57.4.3

  ViewVC Help
Powered by ViewVC 1.1.5