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

Diff of /src/code/foreign-linkage.lisp

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

revision 1.2 by toy, Thu Sep 25 02:40:12 2003 UTC revision 1.3 by rtoy, Fri Mar 19 15:18:59 2010 UTC
# Line 1  Line 1 
1  (in-package "LISP")  (in-package "LISP")
2    
3    (intl:textdomain "cmucl")
4    
5  (sys:register-lisp-runtime-feature :linkage-table)  (sys:register-lisp-runtime-feature :linkage-table)
6    
7  ;;; This gets created by genesis and lives in the static area.  ;;; This gets created by genesis and lives in the static area.
# Line 52  Line 54 
54                                                            c-call:long))                                                            c-call:long))
55                                           entry-num)))                                           entry-num)))
56          (when (zerop result)          (when (zerop result)
57            (error "~A is not defined as a foreign symbol"            (error _"~A is not defined as a foreign symbol"
58                   symbol-name))))                   symbol-name))))
59      (setf (gethash symbol-name linkage-hash) entry-num)      (setf (gethash symbol-name linkage-hash) entry-num)
60      entry-num))      entry-num))

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.5