AutoCAD... AutoLISP... VisualLISP...

  [19] Procesor

index  
  Niczym nieskrępowany dostęp do rejestru Windows to cecha Visual LISP-a. Niedostępna w "normalnym" AutoLISP-ie. Sprawdź w jaki procesor wyposażony jest twoj komputer: 

(defun jk:SYS_GetCpu ()
  (apply 'strcat
    (mapcar
      '(lambda (%)
         (if
	   (numberp %)
	   (strcat "(" (itoa %) " MHz)")
	   (strcat % ", ")
         )
       )
       (mapcar
        '(lambda (%)
          (vl-registry-read
	    (strcat "HKEY_LOCAL_MACHINE\\Hardware\\"
	            "Description\\System\\CentralProcessor\\0"
	    )
	    %
	  )
        )
        '("Identifier" "ProcessorNameString" "~MHz")
      )
    )
  )
)
Pewnie jest to bestia... ;)