代码搜索：LISP编程
找到约 10,000 项符合「LISP编程」的源代码
代码结果 10,000
www.eeworm.com/read/408246/2253140
lisp type-vops.lisp
;;;; type testing and checking VOPs for the PPC VM
;;;; This software is part of the SBCL system. See the README file for
;;;; more information.
;;;;
;;;; This software is derived from the CMU CL sys
www.eeworm.com/read/408246/2253143
lisp backend-parms.lisp
(in-package "SB!VM")
(def!constant +backend-fasl-file-implementation+ :ppc)
(setf *backend-register-save-penalty* 3)
(setf *backend-byte-order* :big-endian)
(eval-when (:compile-toplevel :load-tople
www.eeworm.com/read/408246/2253144
lisp ucs-2.lisp
(in-package #:sb!impl)
;;; TODO Macro for generating different variants:
;;; :ucs-2le (little endian) sap-ref-16le
;;; :ucs-2be (big endian) sap-ref-16be
;;; :ucs-2 (native) sap-
www.eeworm.com/read/408246/2253147
lisp enc-win.lisp
(in-package "SB!IMPL")
(define-unibyte-mapper cp1250->code-mapper code->cp1250-mapper
(#x80 #x20AC) ; EURO SIGN
(#x81 nil)
(#x82 #x201A) ; SINGLE LOW-9 QUOTATION MARK
(#x83 nil)
(#x84 #x201
www.eeworm.com/read/408246/2253148
lisp enc-jpn.lisp
(in-package "SB!IMPL")
;;; EUC-JP
(declaim (inline ucs-to-eucjp eucjp-to-ucs
mb-len-as-eucjp eucjp-continuation-byte-p))
(defun ucs-to-eucjp (code)
(declare (optimize speed (safet
www.eeworm.com/read/408246/2253149
lisp enc-cyr.lisp
(in-package "SB!IMPL")
(define-unibyte-mapper koi8-r->code-mapper code->koi8-r-mapper
(#x80 #x2500) ; BOX DRAWINGS LIGHT HORIZONTAL
(#x81 #x2502) ; BOX DRAWINGS LIGHT VERTICAL
(#x82 #x250C) ; B
www.eeworm.com/read/408246/2253150
lisp enc-iso.lisp
(in-package "SB!IMPL")
(define-unibyte-mapper iso-8859-2->code-mapper code->iso-8859-2-mapper
(#xA1 #x0104) ; LATIN CAPITAL LETTER A WITH OGONEK
(#xA2 #x02D8) ; BREVE
(#xA3 #x0141) ; LATIN CAPI
www.eeworm.com/read/408246/2253151
lisp enc-dos.lisp
(in-package "SB!IMPL")
(define-unibyte-mapper cp437->code-mapper code->cp437-mapper
(#x80 #x00C7) ; LATIN CAPITAL LETTER C WITH CEDILLA
(#x81 #x00FC) ; LATIN SMALL LETTER U WITH DIAERESIS
(#x82
www.eeworm.com/read/408246/2253152
lisp mb-util.lisp
(in-package "SB!IMPL")
(defun make-multibyte-mapper (list)
(let ((list (sort (copy-list list) #'< :key #'car))
(hi (loop for x in list maximize (max (car x) (cadr x)))))
(make-array (li
www.eeworm.com/read/408246/2253153
lisp enc-cn.lisp
;;; enc-cn.lisp: CP936 encoding support in SBCL
;;; Chun Tian (binghe)
;;; Sat Dec 23 02:45:12 CST 2006
(in-package "SB!IMPL")
;;; GBK
(declaim (inline ucs-to-gbk gbk-to-ucs