Support Common Lisp
Adding some Common Lisp here to get the party started! *cues music*
This commit is contained in:
		
							parent
							
								
									c010e6d6cf
								
							
						
					
					
						commit
						55860debe5
					
				
					 1 changed files with 15 additions and 0 deletions
				
			
		
							
								
								
									
										15
									
								
								common-lisp/main.lisp
									
										
									
									
									
										Normal file
									
								
							
							
						
						
									
										15
									
								
								common-lisp/main.lisp
									
										
									
									
									
										Normal file
									
								
							| 
						 | 
					@ -0,0 +1,15 @@
 | 
				
			||||||
 | 
					(in-package #:cl-user)
 | 
				
			||||||
 | 
					(defpackage #:utils
 | 
				
			||||||
 | 
					  (:documentation "Some utility functions and macros to wet my beak.")
 | 
				
			||||||
 | 
					  (:use #:cl)
 | 
				
			||||||
 | 
					  (:shadow #:type))
 | 
				
			||||||
 | 
					(in-package #:utils)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					(defmacro type (name in out)
 | 
				
			||||||
 | 
					  `(declaim (ftype (function ,in ,out) ,name)))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					(defmacro comment (&rest _forms) nil)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					(type add (int int) int)
 | 
				
			||||||
 | 
					(defun add (a b)
 | 
				
			||||||
 | 
					  (+ a b))
 | 
				
			||||||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue