/[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.42.1 by rtoy, Mon Feb 8 17:15:47 2010 UTC revision 1.2.42.2 by rtoy, Tue Feb 9 18:41:59 2010 UTC
# Line 54  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.42.1  
changed lines
  Added in v.1.2.42.2

  ViewVC Help
Powered by ViewVC 1.1.5