Changeset 15118


Ignore:
Timestamp:
Dec 8, 2011, 1:58:53 AM (8 years ago)
Author:
gz
Message:

uncomment and clean up rlisp-test

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/cocoa-remote-lisp.lisp

    r15116 r15118  
    1717;;  Use the IDE to debug a remote ccl.
    1818;;  **** THIS IS NOT COMPLETE AND NOT HOOKED UP TO ANYTHING YET *****
     19;; To try it, do (swink:start-server :port <port>) in the remote ccl,
     20;;  then call (ccl::rlisp-test <port> <remote-host>) in the IDE.
    1921;;
    2022
    2123(in-package "GUI")
    2224
    23 #+debug ;; For testing, start a ccl running swank, then call this in the ide.
    24 (defun cl-user::rlisp-test (port &optional host)
    25   (declare (special cl-user::conn))
    26   (when (boundp 'cl-user::conn) (close cl-user::conn))
    27   (setq cl-user::conn (ccl::connect-to-swink (or host "localhost") port))
    28   (ccl::make-rrepl-thread cl-user::conn "IDE Listener"))
     25(defun ccl::rlisp-test (port &optional host)
     26  (let ((conn  (ccl::connect-to-swink (or host "localhost") port)))
     27    (ccl::make-rrepl-thread conn "IDE Listener")))
    2928
    3029(defclass remote-listener-hemlock-view (hi:hemlock-view)
Note: See TracChangeset for help on using the changeset viewer.