/[cmucl]/src/code/pmax-vm.lisp
ViewVC logotype

Diff of /src/code/pmax-vm.lisp

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

revision 1.11 by wlott, Thu Jul 9 16:43:54 1992 UTC revision 1.12 by wlott, Thu Oct 8 22:10:34 1992 UTC
# Line 24  Line 24 
24  (export '(fixup-code-object internal-error-arguments  (export '(fixup-code-object internal-error-arguments
25            sigcontext-program-counter sigcontext-register            sigcontext-program-counter sigcontext-register
26            sigcontext-float-register sigcontext-floating-point-modes            sigcontext-float-register sigcontext-floating-point-modes
27            extern-alien-name))            extern-alien-name sanctify-for-execution))
28    
29    
30  ;;;; The sigcontext structure.  ;;;; The sigcontext structure.
# Line 197  Line 197 
197  (defun extern-alien-name (name)  (defun extern-alien-name (name)
198    (declare (type simple-base-string name))    (declare (type simple-base-string name))
199    name)    name)
200    
201    
202    
203    ;;; SANCTIFY-FOR-EXECUTION -- Interface.
204    ;;;
205    ;;; Do whatever is necessary to make the given code component executable.
206    ;;;
207    (defun sanctify-for-execution (component)
208      (declare (ignore component))
209      nil)

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

  ViewVC Help
Powered by ViewVC 1.1.5