1. 22 Jul, 2021 1 commit
  2. 23 May, 2021 1 commit
  3. 22 Apr, 2021 6 commits
  4. 12 Jan, 2021 2 commits
  5. 29 Nov, 2020 5 commits
    • Madhu's avatar
      mkcl support via sb-bsd-sockets · 71d1c6a4
      Madhu authored
      71d1c6a4
    • Madhu's avatar
      fix (setf socket-option) for iolib · e8a43fca
      Madhu authored
      e8a43fca
    • Madhu's avatar
      make-usocket-error-handler: fix api mismatch · d58e470d
      Madhu authored
      d58e470d
    • madhu's avatar
      backend/openmcl.lisp: (to-format): ensure bivalent streams get created · d93f2397
      madhu authored
      Explicitly specifying :FORMAT :TEXT to CCL:MAKE-SOCKET
      makes the socket monovalent.  (This is at odds with the doc)
      So use :BIVALENT instead of TEXT in the ccl backend
      
      (in-package "CL-USER")
      (defun test-bivalence (sock)
        (list :write-byte (ignore-errors (write-byte 95 sock))
      	:write-char (ignore-errors (write-byte #\G sock))
      	:format (ccl:socket-format sock)
      	:external-format (stream-external-format sock)
      	:element-type (stream-element-type sock)))
      
      (defmacro getf-and-remf (place indicator default)
        `(let ((val (getf ,place ,indicator)))
           (cond (val (remf ,place ,indicator) val)
      	   (t ,default))))
      
      (defun make-sock (&rest make-socket-args)
        (let* ((args (copy-seq make-socket-args))
      	 (remote-host (getf-and-remf args :remote-host "localhost"))
      	 (remote-port (getf-and-remf args :remote-port 22)))
          (apply #'ccl:make-socket
      	  :remote-host remote-host
      	  :remote-port remote-port
      	  args)))
      
      (test-bivalence (make-sock)); => (:WRITE-BYTE 95 :WRITE-CHAR #\G :FORMAT :TEXT :EXTERNAL-FORMAT #<EXTERNAL-FORMAT :ISO-8859-1/:UNIX #x302001C9C8ED> :ELEMENT-TYPE CHARACTER)
      
      ;; :TEXT FAILs to be bivalent
      (test-bivalence (make-sock :format :text)) ; => (:WRITE-BYTE NIL :WRITE-CHAR NIL :FORMAT :TEXT :EXTERNAL-FORMAT #<EXTERNAL-FORMAT :ISO-8859-1/:UNIX #x302001C9C8ED> :ELEMENT-TYPE CHARACTER)
      
      (test-bivalence (make-sock :format :binary)) ;  => (:WRITE-BYTE 95 :WRITE-CHAR #\G :FORMAT :BIVALENT :EXTERNAL-FORMAT  #<EXTERNAL-FORMAT :ISO-8859-1/:UNIX #x302001C9C8ED> :ELEMENT-TYPE (UNSIGNED-BYTE 8))
      
      (test-bivalence (make-sock :format :bivalent)) ;  => (:WRITE-BYTE 95 :WRITE-CHAR #\G :FORMAT :TEXT :EXTERNAL-FORMAT #<EXTERNAL-FORMAT :ISO-8859-1/:UNIX #x302001C9C8ED> :ELEMENT-TYPE CHARACTER)
      d93f2397
    • Madhu's avatar
      mk-defsystem · d96fe38d
      Madhu authored
      d96fe38d
  6. 27 Sep, 2020 1 commit
  7. 26 Sep, 2020 1 commit
  8. 11 Jul, 2020 1 commit
  9. 03 Jul, 2020 1 commit
  10. 02 Jul, 2020 2 commits
  11. 23 Jun, 2020 3 commits
  12. 24 Mar, 2020 2 commits
  13. 04 Feb, 2020 1 commit
  14. 03 Feb, 2020 2 commits
  15. 23 Dec, 2019 1 commit
  16. 11 Dec, 2019 2 commits
  17. 20 Oct, 2019 2 commits
  18. 19 Oct, 2019 1 commit
  19. 13 Sep, 2019 4 commits
  20. 25 Aug, 2019 1 commit