LINUX.ORG.RU

Ассемблер со скобочками...

shimon ★★★★★
()

Не вижу баттхёрта испуганных говнокодеров, собирающих трактор в марсианский атсрал.

darkenshvein ★★★★★
()
Последнее исправление: darkenshvein (всего исправлений: 1)

надо было в девелопмент. Тут анонимуса нет.

Bad_ptr ★★★★★
()

Оно вообще запускается?

grouzen ★★
()

Кто-нибудь работоспособность проверял?

ViTeX ★★★★
()

Кусочек из исходников:

check-cpu
(pushfd)
(pop eax)
(mov ecx eax)
(xor eax #x200000)
(push eax)
(popfd)
(pushfd)
(pop eax)
(xor eax ecx)
(shr eax 21) ; If bit 21 is set, CPUID instruction is supported.
(and eax 1)
(push ecx)
(popfd)
(test eax eax)
(jz no-long-mode)
(mov eax #x80000000)
(cpuid)
(cmp eax #x80000001) ; Check whether extended function 0x800000001 is available or not.
(jb no-long-mode)
(mov eax #x80000001)
(cpuid)
(test edx ,(ash 1 29)) ; Check whether LM-bit is set or not
(jz no-long-mode)
(ret)
no-long-mode
(stc)
(ret)

Зачем так жить, котаны?

Gvidon ★★★★
()
Последнее исправление: Gvidon (всего исправлений: 1)

Это скорее не Lisp, а ассемблер со скобочками.

Deleted
()

powerfulness

Power. Автор откуда родом? А, впрочем, лишь бы он кодил лучше, чем по-английски пишет.

naryl ★★★★★
()

И в корне тут же скрипт для запуска в виртуалке. Пните когда он начнёт её разрабатывать из самой себя, как каждый день люди уже делают в emacs. Это уже будет серьёзно интересно.

naryl ★★★★★
()
Последнее исправление: naryl (всего исправлений: 1)

Я думал, с тех пор как эта мысль не взлетела в 80х больше попыток не было.

ncrmnt ★★★★★
()
Ответ на: комментарий от Gvidon

Не всё так однозначно. Другой кусок исходников

(in-package :cc)

(defmacro aif (test-form then-form &optional else-form)
  "Anaphoric variant of if. From ON LISP."
  `(let ((it ,test-form))
     (if it ,then-form ,else-form)))

(defmacro acond (&rest clauses)                
  "Anaphoric variant of cond. From ON LISP."
  (if (null clauses)                
      nil                
      (let ((cl1 (car clauses))                
            (sym (gensym)))                
        `(let ((,sym ,(car cl1)))                
           (if ,sym                
               (let ((it ,sym)) ,@(cdr cl1))                
               (acond ,@(cdr clauses)))))))
harm
()

Я сначала подумал что Емакс запустили на голом железе x86-64:)

pylin ★★★★★
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.