revisions

examples/cl-repl/lisp/editor.lisp

@@ -655,8 +655,8 @@
 (defvar *ex-cmd* nil)
 
 (defun feed-top-level (text)
-  (if #+linux *ulisp-mode*         #-linux nil
-      #+linux (send-to-ulisp text) #-linux nil
+  (if #+unix *ulisp-mode*         #-unix nil
+      #+unix (send-to-ulisp text) #-unix nil
       (progn
         (when eval:*eval-thread*
           (if (mp:process-active-p eval:*eval-thread*)

examples/cl-repl/lisp/package.lisp

@@ -17,7 +17,7 @@
    #:set-font
    #:start
    ;; uLisp mode (e.g. Arduino)
-   #+linux #:*ulisp-mode*
-   #+linux #:send-to-ulisp
-   #+linux #:received-from-ulisp))
+   #+unix #:*ulisp-mode*
+   #+unix #:send-to-ulisp
+   #+unix #:received-from-ulisp))
 

examples/cl-repl/lisp/qt.lisp

@@ -31,8 +31,8 @@
    #:text
    #:text-document
    ;; ulisp (e.g. Arduino)
-   #+linux #:connect-usb
-   #+linux #:send-to-ulisp))
+   #+unix #:connect-usb
+   #+unix #:send-to-ulisp))
 
 (in-package :qt)