/[slime]/slime/swank-backend.lisp
ViewVC logotype

Diff of /slime/swank-backend.lisp

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

revision 1.65 by mbaringer, Sun Sep 12 23:56:39 2004 UTC revision 1.66 by mbaringer, Mon Sep 13 16:42:31 2004 UTC
# Line 72  Line 72 
72     #:slot-definition-readers     #:slot-definition-readers
73     #:slot-definition-writers))     #:slot-definition-writers))
74    
75    (defun swank-backend::import-to-swank-mop (symbol-list)
76      (dolist (sym symbol-list)
77        (let* ((swank-mop-sym (find-symbol (symbol-name sym) :swank-mop)))
78          (when swank-mop-sym
79            (unintern swank-mop-sym :swank-mop))
80          (import sym :swank-mop)
81          (export sym :swank-mop))))
82    
83  (in-package :swank-backend)  (in-package :swank-backend)
84    
85    

Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66

  ViewVC Help
Powered by ViewVC 1.1.5